Hiding and unhiding rows

Try this:

Sub test()
    MsgBox FirstVisRow(Range("A5:B10")) ' hide some rows as you wish
End Sub

Function FirstVisRow(r As Range) As Long
    Dim rFind As Range
    
    On Error Resume Next
    Set rFind = r.Columns(1).SpecialCells(xlCellTypeVisible)
    If Not rFind Is Nothing Then FirstVisRow = rFind.Row
End Function