Focus on Last Row

I have the following code:

Private Sub cmdSubmit_Click()

Dim lastrow As Long

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)
    
Sheets("DATABASE").Cells(lastrow).Show
End With
Application.CutCopyMode = False

txtFirstName = ""
txtLastName = ""
txtCCN = ""
txtDateofhire = ""

End Sub

and I would like when the Command Button is clicked for the DATABASE sheet to show with the focus on the last row. I thought

Sheets("DATABASE").Cells(lastrow).Show

would do it, but apparently not.

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.

You could try:

Cells(Application.Rows.Count, 1).End(xlUp).Select

The "1" being the number of one of your columns.