Dzień dobry.

Mam w arkuszu kolumnę, wypełnioną danymi. Powiedzmy, że to kolumna "A". Powiedzmy też, że nie znam dokładnej liczby wierszy danych, w tej kolumnie, jednak mam pewność, że nie ma w niej pustych wierszy. W jaki sposób mogę wybrać zakres obejmujący wszystkie wiersze, z danymi, z tej kolumny?

Dim zakres As Range
Set zakres = Range("A1")

Próbowałem użyć metody Resize, jednak wieszał się wtedy program

Proszę o pomoc.
Dziękuję.

PS. Dodam, że wiem, że mogę, na sztywno wpisać zakres:

Set zakres = Range("A1:A42")

jednak wtedy, po dodaniu nowych danych, będę musiał za każdym razem modyfikować kod.

Edycja:
OK, już znam rozwiązanie. Należało użyć funkcji ILE.NIEPUSTYCH, która, z poziomu VBA, nazywa się CountA

Set zakres = Range("A1:A" & Application.WorksheetFunction.CountA(Columns("A")))