Remove numbers of a 1st column founded in a 2nd one

[RIC63]

I neeed to remove Every number present in column A from the column B, someone can show me a short code to acomplish this 'apparently for me' simple problem ?

see attached sample


Thank you in advance

[mdmackillop]

Sub Test()
For Each cel In Columns(1).SpecialCells(xlCellTypeConstants)
Set c = Columns(2).Find(cel, lookat:=xlWhole)
If Not c Is Nothing Then c.ClearContents
Next
End Sub