one more thing, when empty cells are found, the script adds 1, can this cells remains empty?
Quote:
Originally Posted by rollis13
Glad having been able to help  .
Since you have only titles in row 1 then maybe change these lines of code to:
Code:
col = Cells(i, Cells.Columns.Count).End(xlToLeft).Column
'col = Cells(i, 1).End(xlToRight).Column
|