Wpis z mikrobloga

@BigBlackSausage:
nie wiem jak się prezentują dane (ciągłe, nieciągłe, jedna kolumna, tabelka), ale
np.
countRows = ActiveSheet.[A1].CurrentRegion.Rows.Count - masz liczbę użytych wierszy w danym zakresie

albo np. bierzesz kolumnę C i

countRows = Range("C1048576").End(xlUp).Row
czyli bierzesz ostatnią komórkę w kolumnie (jak nie chce ci się pamiętać numeru jej wiersza, albo możesz mieć plik starszej wersji, to Application.Rows.Count zwraca Ci ilość wiersz i wtedy
Range("C"&Application.Rows.Count)),
za pomocą End przeskakujesz do pierwszej wypełnionej