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
Bookmarks