Hallo!

Muss das unbedingt per VBA erfolgen?
Andernfalls würde ich einfach alle nicht benötigten Spalten gemeinsam markieren (also mit Strg-Taste) und dann in einem Rutsch löschen.

Per VBA könnte man das z.B. so lösen:

Sub SpaltenLöschen()
Dim var_Sp As Variant
Dim int_Sp As Integer
Dim col As Range
var_Sp = Split(\"AZ LJA,AZ JA,AZ TR\", \",\")
For int_Sp = 0 To UBound(var_Sp)
Set col = ActiveSheet.Rows(1).Find(what:=var_Sp(int_Sp))
If Not col Is Nothing Then
col.EntireColumn.Delete
End If
Next
End Sub

Die Variable var_Sp hat hier nur die Spaltenüberschriften aus Deinem Beispiel. Das müsstest Du noch nach Deinem Bedarf anpassen.

Viel Erfolg

Manes