Fixing Type Mismatch Error in argument passing

I'm passing a ListObject to a macro but I bump into a probably obvious error, I clearly missed something.

I run a vba macro in Excel 2007

The exact error I get is "Compilation Error: Type Mismatch" This happens when I am passing a ListObject as argumento to the macro
CopyFilteredTable.


Below you find the macro

Thanks in advance:

Public Sub FilterTable()

Dim FilteredTable As ListObject

Worksheets("Sheet1").Select

Set FilteredTable = ActiveSheet.ListObjects("table1")
FilteredTable.Range.AutoFilter Field:=4, Criteria1:=""
CopyFilteredTable (FilteredTable)


 End Sub

Sub CopyFilteredTable(table As ListObject)
  
End Sub