@Alex
.....
ColumnLetter = Split(.Worksheets(1).Cells(1, LastColumns).Address, "$")(1) ' converto il numero della colonna in lettera
.Worksheets(1).Range("A2:" & ColumnLetter & LastRow).ClearContents
.....
Primo step ... Spero di essere sulla strada giusta...