@ Yasser
Save typing and omit cycling through empty cells.
For Each c In Range("B:B").SpecialCells(2)