Try this:

With Selection.Find

.Text = "£*[0-9]{9}"
.Replacement.Text = Chr(13)
.MatchWildcards = True
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

End With

__________________
Backup your original file before doing any modification.