Hiya,
Here's some sample code for you to play with. It may not be the most efficient way of doing what you ask but it does work.
Sub test()
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
Range("A1").Select
Do While ActiveCell.Row <= LastRow
If ActiveCell.Value = "COMPANY NA" Then
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete Shift:=xlUp
LastRow = LastRow - 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Regards
AJ