Leere Zelle

ich möchte per Makro die erste leere Zelle in Spalte A "anspringen". im Archiv habe ich folgendes gefunden:

With Worksheets(1).Range(A1:A500)
set zelle=.Find("",LookIn:=xlValues
if Not zelle is Noting Then
ersteAdresse=zelle.Address
zelle.Select
set zelle= .FindNext(zelle)
end if
End With

Leider funktioniert es bei mir nicht.
Die erste Zeile habe ich in ...Range("A3:A1000") geändert, nun hänge ich in der zweiten Zeile, "Syntaxfehler"

Könnt Ihr mir helfen??

Bernhard