Amended code below assuming no blanks in column A

Private Sub Workbook_Open()
Sheets (“trips”).Select
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub

Assuming first blank cell down.

Private Sub Workbook_Open()
Sheets("trips").Select
Range("A1").End(xlDown).Offset(1, 0).Select
End Sub


Is that possible add to this macro,
open to the next empty row or next empty cell in Column A?

Thanks in advance.
Sincerely, Igor. (inta251)


Gord Dibben MS Excel MVP