Fixing Type Mismatch Error in argument passing

Why not simply:

Sub M_snb()
    With Sheets("Sheet1").ListObjects("table1").Range
        .AutoFilter 4, ">0"
        .Copy Sheets("Sheet2").Cells(1)
        .AutoFilter
    End With
End Sub