skjul kolonner med vba + lidt ekstra

Godaften i stuerne.

Roder lidt med koderne til en makro der kan skjule en masse kolonner når en bruger hopper ind i et ark.
Jeg kunne godt bruge et input til at få det til at se lidt bedre/mere prof ud.

'  Sheets("Packing List").Select

    'Columns("A:B").Select
    'Selection.EntireColumn.Hidden = True
    'Columns("D:D").Select
    'Selection.EntireColumn.Hidden = True
    'Columns("G:G").Select
    'Selection.EntireColumn.Hidden = True
    'Columns("I:K").Select
    'Selection.EntireColumn.Hidden = True
    'Columns("M:O").Select



  Fryse vinduer og hoppe til T2
Range("D3").Select
    ActiveWindow.FreezePanes = False
   
    Range("D3").Select
    ActiveWindow.FreezePanes = True
   
    Range("T2").Select

Der udover er der et par kriterier der skal gælde for kolonne 18:

ActiveSheet.ListObjects("Tabel10").Range.AutoFilter Field:=18, Criteria1:= _
        "<>"

'Kolonne 18 må ikke være ="tom"; og må ikke være="udgået"'
og skulle det være muligt må den heller ikke være=lyserød farve.

Håber at høre fra jer. 😊😊😊