Kad se završio deo macroa koji ti briše sve te kolone koje su ti višak, isformatira kako si podesio itd. dodaj ovo
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
ActiveWorkbook.Sheets("Sheet1").ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(lr...