Use END to select last row using a Macro?

[Cosmos75]

How can I write a macro to select the last row with data and then go to the next row? I’ve tried to records a macro where I do that, but it just goes to the last row with data and then says “Range("A59").Select”, where A59 just so happens to be the next row in that case but it won’t work once I’ve added or deleted a data row.

THANKS!

 

[bobeuk]

Sub FindLastRow()
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
lastrow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
EndofList = lastrow
Range("A1").Select
ActiveCell.Offset(EndofList, 1).Range("A1").Select

End Sub

 

[Barrie Davidson]

On 2002-03-06 14:05, Cosmos75 wrote:
How can I write a macro to select the last row with data and then go to the next row? I’ve tried to records a macro where I do that, but it just goes to the last row with data and then says “Range("A59").Select”, where A59 just so happens to be the next row in that case but it won’t work once I’ve added or deleted a data row.

THANKS!

This will do the trick:

Range("A65536").End(xlUp).Offset(1, 0).Select

Regards,