How to Insert an autofilter if cell in row range contains value

Question

I'm trying to create a function that inserts a filter within a cell range if a cell contains a value

Here is my code:

Sub FilterFunc()
  Dim i As Long, lastCol As Long
  Dim rng As Range, cell As Range
  Dim wSheet As Worksheet

  Set wSheet = Worksheets("Sheet1") 
  'find the last column in row one
  lastCol = wSheet.Cells(1, Columns.Count).End(xlToRight).Column 'xlToLeft

  'set range from A1 to last column
   Set rng = wSheet.Range(wSheet.Cells(1, 1), wSheet.Cells(1, lastCol)) 

   'Outline the autofilter field hierarchy
   i = 1
   For Each cell In rng
     If cell.Value <> "" Then
       wSheet.Cells(cell.Row + 2, cell.Column).AutoFilter Field:=cell.Column, Criteria1:=cell.Value
     End If
   Next cell
End Sub

At the moment when the following code is executed:

wSheet.Cells(cell.Row + 2, cell.Column).AutoFilter Field:=cell.Column, Criteria1:=cell.Value

It returns Runtime error: 1004 Autofilter Method of Range class failed

Its probably something silly but im trying to figure out where im going wrong, I've tried looking on stackoverflow and even threw up a question but i havent had much luck