Select first empty row of data

[twckfa16]

Hello,

The following code is selecting the last row of data plus all the way down. Is there a way to adjust it to select the first EMPTY row of data
then all the way down?

Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

[RHCPgergo]

Hey,

this line should do it:

Range(Range("A" & Rows.Count).End(xlUp).Offset(1, 0), Range("A" & Rows.Count)).Select

[alansidman]

Try this

Sub MT()
ActiveSheet.Range("A1").End(xlDown).Offset(1).EntireRow.Select
End Sub