Hi
I have the following code to open the workbook and next empty cell .
Private Sub Workbook_Open()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Sheets("2019_20")
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 1).Select
End Sub
The problem is that the cells are formated and have data...