Getting The Cells to focus!!! Using FOR LOOP to find and select only the last row)

[Ladyj205]

I'm using MS Office 2010. win7

Somehow I've gotten the selected new rows to focus rather than the most recent one.

I need to use FOR Loop to find and select only the last row.

this what i have so far:

Option Explicit
Private Sub CommandButton1_Click()
Dim pass As String
    pass = "abc1234"
    ActiveSheet.Protect Password:=pass, UserInterFaceOnly:=True


With Range("A17:A42").SpecialCells(xlVisible).Areas(1)
      .Offset(.Count).Resize(1).EntireRow.Hidden = False
   
   ActiveSheet.Range("b19:d42").Select
   
   End With
End Sub

Thankful for any and all help!!! Thanks a Million