Zwei Spalten nach Zahl durchsuchen

Dim Nummer As String
Dim Anrede As String
Dim Vorname As String
Dim Nachname As String
Dim Strasse As String
Dim PLZ As String
Dim Ort As String
Dim lngLast(0 To 2) As Long
Set worksKunden = Workbooks("Kunden.xls").Worksheets("Daten")
Nummer = Range("Nummer")
Anrede = Range("Anrede")
Vorname = Range("Vorname")
Nachname = Range("Nachname")
With worksKunden
'erste freie Zeile für jede Spalte ermitteln
lngLast(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
lngLast(2) = .Cells(Rows.Count, "B").End(xlUp).Row + 1
'maximale Zeile ermitteln
lngLast(0) = Application.WorksheetFunction.Max(lngLast(1), lngLast(2))
' Eintragen
.Range("A" & lngLast(0)) = "Nummer"
'.Range("B" & lngLast(0)) = LEER
.Range("C" & lngLast(0)) = "Anrede"
.Range("D" & lngLast(0)) = "Name"
.Range("E" & lngLast(0)) = "Vorname"
' Speichern
ActiveWorkbook.Save
End With