I am not sure I understand what you mean, but you could add something like below at the end of your code

Cells.Select
    Cells.EntireColumn.AutoFit