Automatischer Spalteneinschub!!

ich habe eine Tabelle, an der ich die Spalten variabel halten möchte, d.h. wenn in Spalte 9 was steht, dann wird Spalte 10 hinzugefügt!

Habe das Programm schon für die Zeilen bekommen! Kann mir jemand sagen, wie ich das Programm umstellen muss, um es auf Spalten anzuwenden!?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 And Target.Row > 9 Then
If Target.Value <> "" Then
Rows(Target.Row + 1).Insert
Else
Rows(Target.Row).Delete
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Count > 1 Then
MsgBox "Mehfachauswahl ist nicht gestattet.", 48, "Hinweis"
Cells(Target.Row, Target.Column).Select
End If
End Sub

Danke im Voraus!!

Chris