I am trying to make a macro that deletes entire rows if in column 70 it does
not say "Manufacturer". I have created one that I think should work, however
it says error 424 object required and it does not say where. Any suggestions?
This is the macro:

Sub ManufacturingMacro( )

Dim Variable
Dim x ' Delete all non-manufacturing companies
x = 1
Do While Cells(x, 70).Value < ""
x = x + 1
Set Variable = Cells(x, 1)
If Variable.Value < "Manufacturer" Then
EntireRow.Delete
End If
Loop

End Sub