Laufzeitfehler 1004 Autofill

Sub add_filter()
Dim p As Integer, q As Integer
p = Worksheets.Count
For q = 6 To p
With Worksheets(q)
.Range("G8").AutoFilter 7, "=Global"
End With
Next q
End Sub