Steht in einer der Zellen in Spalte 1 vielleicht eine Fehlermeldung? Z.B. "#WERT"?
Es gibt auch eine bessere Methode, um die letzte nicht leere Zelle zu finden, oder willst du wirklich die erste freie finden?
Ansonsten:
lnglastrow = Cells(rows.count, 1).End(xlup).row
|