Sub First_VisRowOfTable()
    
    Dim Tbl As Excel.ListObject
    Dim cel As Range
    
Set Tbl = ActiveSheet.ListObjects(1)    'first table on sheet

With Tbl
    For Each cel In Tbl.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
        MsgBox cel.Row
        Exit For
    Next
End With

End Sub