One way:

Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)


In article ,
GMB_Excel
wrote:

OK, here comes another question to follow up from the previous one.

If you write a macro and you need to specify a range of cells that
might change between different files, can you actually specify a range
that goes from your starting cell to the "end" (last nonblank cell in
range)?

George