Is there any other data on the sheet? If not, then this will give you the number of rows in the Table whether it's filtered or not and you simply add to it the number rows used in your header and/or extra rows above the Table:

Sheets("Sheet1").ListObjects("Table1").DataBodyRange.Rows.Count