Can anyone help in finishing off macro

[shrek]

I have a macro that deletes certain data in column A but need to add more words to delete.
Macro at pres is:-
Dim a, i As Long
With Range("a1", Range("a" & Rows.Count).End(xlUp))
a = .Value
With CreateObject("VBScript.RegExp")
.Pattern = "\b(o(n|ff)|hrs|days|from|and|to)\b"
.IgnoreCase = True
For i = 1 To UBound(a, 1)
If .Test(a(i, 1)) Then a(i, 1) = ""
Next
End With
.Value = a
End With
End Sub

What I need added is Turn No , Unit, and ---------- is anyone able to help.

Thanks

 

[lalbatros]

shrek,

This macro is ok, there is nothing to add.