Finding copying and pasting

The code should copy all rows which have "RFS" in column H unless you have a list(Table)

Sub filterme()
Application.ScreenUpdating = False
With Sheets("Sheet1")
    .AutoFilterMode = False
    With .Range("H1:H" & .Cells(Rows.Count, "H").End(xlUp).Row)
       .AutoFilter 1, "RFS"
       If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then ' only copy data rows
         .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Copy
          Sheets("Deposits").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
         .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End If
        .AutoFilter
    End With
End With
Application.ScreenUpdating = True
End Sub