error 1004

Hi Hamex

I believe you'll find your error in this line of code

Col = Right(iCell.Offset(-lRows, 0).Address, 2)

is due to the fact that once your row number exceeds 99, the formula in the offending line of code evaluates to 0 (zero).

Change that line of code to

Col = iCell.Offset(-lRows, 0).Row

and you should be good to go.

John

PS: By the way, I tested Shg's code...it's much simpler than the code I wrote and it works wonderfully well.