Is the user just adding more rows of data to the bottom of the table?
If so try this approach
Give the users a button at the top of the sheet that takes them automatically to the next available blank row
- add a Command Button at the top of the sheet
- right click on button and select "View Code"
- insert the code below (modified as appropriate)
This code assumes that column A determines the next row.
So if data is in column C, amend "A1048576" to "C1048576"
Private Sub CommandButton1_Click()
ActiveSheet.Range("A1048576").End(xlUp).Offset(1).Select
End Sub
Bookmarks