View Single Post
 
Old 05-13-2021, 02:59 AM
rollis13's Avatar
rollis13 rollis13 is offline Windows 10 Office 2016
Competent Performer
 
Join Date: Jan 2021
Location: Cordenons
Posts: 142
rollis13 will become famous soon enough
Default

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
Reply With Quote