Laufzeitfehler

Sub BedingtKopieren()
Dim iZeile As Integer
Dim iSpalte As Integer
Dim iMaxZeile As Long
With Sheets("Test")
iMaxZeile = .Range("A1048576").End(xlUp).Row '->> 1004 Laufzeitfehler: anwendungs- oder objektdefinierter fehler
'iMaxZeile = Cells(.Rows.Count, 1)'->> liefert 0?
MsgBox iMaxZeile
End With
End Sub

Beim Ausführen sowohl über Command Button, als auch über F8 bekmme ich Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.
Egal was ich probiere (s, auch Cells...). Wie bekmme ich das behoben?
Schönen Dank!
holy Diver