Focus on Last Row

Originally Posted by millz

Try:

With Sheets("DATABASE")
  lastrow = .Range("A2").End(xlDown).Row
  .Cells(lastrow + 1, 1).Value = txtLastName.Text & ", " & txtFirstName.Text
  .Cells(lastrow + 1, 2).Value = txtCCN.Text
  .Cells(lastrow + 1, 3).Value = txtDateofhire.Text
  .Cells(lastrow, 4).Resize(1, 6).Copy .Cells(lastrow + 1, 4)
    
  .Select
  .Cells(lastrow, 1).Select
End With

Edit: you can try with this if you want the focus to be somewhere in the middle (vertically) of the screen

  ...
  ...
    
  .Select
  .Cells(1, 1).Select
  .Cells(Application.ActiveWindow.VisibleRange.rows.Count + lastrow, 1).Select
  .Cells(lastrow, 1).Select
End With

Worked perfectly! Thank you so much.