Hi Mel

you could get the last row using .end something like

Dim i As Integer
i = [a1].End(xlDown).Row

will pass the number of the last row to the integer "i" then use in
your code

with activesheet
.rows("2:" & i).select
end with

hope this is of some help to you

S