How you run it is up to you:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
For lngIndex = ActiveDocument.Tables(1).Rows.Count To 1 Step -1
If Not (IsNumeric(ActiveDocument.Tables(1).Cell(lngIndex, 3).Range.FormFields(1).Result)) Then
ActiveDocument.Tables(1).Rows(lngIndex).Delete
End If
Next
ActiveDocument.Protect wdAllowOnlyFormFields, True, ""
lbl_Exit:
Exit Sub
End Sub