@ Yasser
Save typing and omit cycling through empty cells.
For Each c In Range("B:B").SpecialCells(2)
@ Yasser
Save typing and omit cycling through empty cells.
For Each c In Range("B:B").SpecialCells(2)
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'