[kokson]

Mirki z #excel i #vba, niejednokrotnie mi już pomogliście więc znów się zwracam z prośbą o porade.
Mam znaleźć pierwsza pusta komorke w kolumnie A, nastepnie wszystko od tej komorki na prawo i w dół wyczyścić z danych (wlacznie z ta komorka).

Sposób na znalezienie pustej komorki to
If Range("A1").Value = "" Then
Range("A1").Select
Else
Range("A" & ActiveSheet.Cells.Rows.Count).End(xlUp).Offset(1, 0).Select
End If

nastepnie próbuje zaznaczyć zakres w prawo ctrl shift strzalka w dol i prawo ale makro czysci tylko pierwsze napotkane dane a reszty jakby juz nie.
obszedłem to zapętleniem odnajdywania pustej komorki i ponowne czyszczenie ale wiem że to amatorka.

[t.....a]

@kokson: a nie możesz zaznaczyć wszystkich wierszy poniżej tej komórki i ich skasować
przez Range(...., "XFD1048576").Rows.Delete ?

[t.....a]

@kokson: dokładniej to taka linijka:
Range(Cells(1, 1).CurrentRegion.End(xlDown).Offset(1, 0), "XFD1048576").Rows.Delete