Hi Raleigh
try this

Sub a()


With ActiveSheet
Dim LastRow As Double
'countt columns A
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Rows("1:" & LastRow).Select

End With
End Sub

Regards Yngve