I am trying to use a for loop to loop through the cells in a column and pick out parts with a specific description. To do this, I am using InStr, which I am unfamiliar with.

Here is the code I have now:

For RowCounter = LastRow To 1 Step -1
    If InStr(Range("F" & RowCounter), "welder") <> 0 Then
        Rows(RowCounter).EntireRow.Cut _
            Destination:=Sheets("FA3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
Next RowCounter

I get a type mismatch error when I run the macro. I do not know how I have it written wrong.