Thanks for the warm welcome.
You guys are such geniuses. That has worked first time round. Ive spent many hours trying to sort this out and i really appreciate your help.
Seen as your here could i just ask one more question (sorry),
I also need to scan down column A and see if there is any text within the cells or txt which says "POA" and if there is i then need to delete that entire row.
I have this code which does blanks:
OASh.Range("A3:A65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlShiftUp)
Thanks for the help again.