Hi
I occasionally got this if I didn't activate the sheet where the
AdvancedFilter was taking place. So you might try putting in something
like
Range("sysFilterList").Parent.Activate

before the filter (or YourSheet.Activate if it is a fixed sheet).

I don't know if a filter being in place already might cause a problem.
If it does you can remove it with

With Range("sysFilterList").Parent
On Error Resume Next 'required if Advanced filter used
.ShowAllData
On Error GoTo 0
.AutoFilterMode = False 'Removes drop down arrows
End With

before you filter

regards
Paul