Macro to Clear row contents

[Q-D]

The below macro works exactly how I want it to and clears the contents of the entire row when and N/a is found, however I now want to add functionality to this.

In column G I have a listof part numbers, i want the macro to also clear the entire row contents if the part number in column g is smaller than 2000 (dummy part numbers)

Any assitance would be appriciated.

Sub Kill_NA()
On Error GoTo ErrorSkip:
Dim Response As Integer
Response = MsgBox(prompt:="This Step is Optional and may take several minutes are you sure? ", Buttons:=vbYesNo)
If Response = vbYes Then
Range("J3:J1500").SpecialCells(xlCellTypeFormulas, 16).EntireRow.ClearContents
ErrorSkip: Response = MsgBox(prompt:="All N/A's Removed", Buttons:=vbOKOnly)
End If
End Sub

[shg]

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.