V Tvojom prípade akurát musíš zameniť riadok v makre z hostovho linku:
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
za:
If Application.WorksheetFunction.CountA(Columns(I)) <= 2 Then
V Tvojom prípade akurát musíš zameniť riadok v makre z hostovho linku:
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
za:
If Application.WorksheetFunction.CountA(Columns(I)) <= 2 Then