(VBA) Count Filled Cells In Column After Filtering, And Store It as a variable?

[evxret]

I have a basic set of data with filters applied, I am simply trying to Figure out how to store a Numeric variable that is the count of filled cells.
Example: I have 100 rows before applying filters, I filter by date and now data is only 10 rows, I tried using End(xlUp) and End (xlDown).row, but this is returning the value of the bottom row in the data, and because it's filtered, its not the same amount of rows filled. (i.e. returning 13 as a variable because thats the last row data is on, but theres only 10 open rows.)

I've also attempted this but It's saying object required so I can't figure out how this function would return a number.

Sub Count_cells_fromRange()
Dim ws As Worksheet
Dim RowNum As Long

Set ws = Worksheets("Test Ship Report")
Set RowNum = Application.WorksheetFunction.CountA(ws.Range("B:B"))

MsgBox ("Count Of Cells Is " & RowNum)
End Sub

 

[kevin9999]

Perhaps this?

Sub Count_cells_fromRange()
    Dim ws As Worksheet
    Set ws = Worksheets("Test Ship Report")
    
    MsgBox "Count Of Cells Is " & _
    WorksheetFunction.Subtotal(3, ws.Range("B2", ws.Cells(Rows.Count, "B").End(xlUp)))

End Sub

 

[Fluff]

You only use Set when dealing with objects, not numbers, so just remove the Set for the RowNum line.

 

[evxret]

You only use Set when dealing with objects, not numbers, so just remove the Set for the RowNum line.

I truly appreciate all your help. This worked. Its always something super simple that gets overlooked. Sorry I'm new

 

[Fluff]

Glad we could help & thanks for the feedback.