How to properly count visible rows in VBA Excel?

Question

Consider this list in excel:

That aims to count those visible rows. So I have this Module (Macro):

Option Explicit
Dim ws As Worksheet
Dim rCount A