Getting a total copied set of rows in VBA and storing it in a variable

[mancubus]

[VBA]
Sub CountVisibleRows()

Dim filterRange As Range
Dim copiedRowTotal As Long

Set filterRange = ActiveSheet.AutoFilter.Range

copiedRowTotal = filterRange.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
'-1 to exclude header row

MsgBox copiedRowTotal
'to display the copiedRowTotal value in message box

End Sub
[/VBA]