Kolonnenbreite mit VBA ändern

Liebe Alle,
ich bin leider einer der Sorte "Makro-Recorder" und keine Kenntnisse in VBA.
Mein Problem:
Der aufgezeichnete Code für die Anpassung der Kolonnenbreite einzelner Kolonnen (die nicht alle nacheinander sind)
Sub
SF3_Kolonnen_Breite_Zwischenkolonnen()
'
' SF3_Kolonnen_Breite_Zwischenkolonnen Macro
'
Columns("I:I").Select
Selection.ColumnWidth = 1
Columns("N:N").Select
Selection.ColumnWidth = 1
Columns("R:R").Select
Selection.ColumnWidth = 1
Columns("V:V").Select
Selection.ColumnWidth = 1
Columns("Y:Y").Select
Selection.ColumnWidth = 1
Columns("AB:AB").Select
Selection.ColumnWidth = 1
Columns("AF:AF").Select
Selection.ColumnWidth = 1
End Sub
...führt dazu, dass sämtliche meiner Kolonnen auf Breite 1 reduziert werden (was ich nicht will).
Ein ähnliches Problem habe ich damit:

Sub SG_Kolonnen_CHFKol_Breite()
' SG_Kolonnen_CHFKol_Breite Macro
Range("H:H,O:O,P:P,Q:Q,T:T,U:U,X:X,AA:AA,AD:AD,AE:AE,AH:AH").Select
Selection.ColumnWidth = 8
End Sub