Biztosan kapsz elegánsabb megoldást is, addig ezt javaslom:

Sub sorok()
    For sor = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Rows(sor & ":" & sor).Hidden = False Then dsz = dsz + 1
    Next
    MsgBox dsz
End Sub