Problem mit Makro

Function GetRow(strAufNr) As Long
On Error Resume Next
With Sheets("Daten")  'dort werden die Aufträge abgelegt
GetRow = WorksheetFunction.Match(strAufNr, .Range("A:A"), 0)
If Err Or GetRow = 0 Then
GetRow = .Rows(.Rows.Count).End(xlUp).Row + 1
End If
End With
On Error GoTo 0
End Function

Sub SaveChanges()
Dim lngRow As Long
lngRow = GetRow(Range("B1").Value)
With Sheets("Daten")
.Cells(IngRow, 1) = Range("C4")
.Cells(IngRow, 2) = Range("L4")
.Cells(IngRow, 3) = Range("C6")
.Cells(IngRow, 4) = Range("L6")
.Cells(IngRow, 5) = Range("C8")
End With
End Sub