Tabelle mit Makro 4 Spalten kopieren und einfügen

Hallo zusammen,

habe ein Problem, möchte meine Tabelle um 4 Spalten nach Rechts erweitern und das mit hilfe eines Makros. Immer beim drücken des Buttens , sollte die Tabelle mit Inhalt um 4 Spalten länger werden.
Kann mir jemand helfen??

Hallo zusammen,

Hallo alleine,

möchte meine Tabelle um 4 Spalten nach
Rechts erweitern und das mit hilfe eines Makros.
Kann mir jemand helfen??

kopiere diesen Code in ein Standardmodul:

Sub SpaltenEinfügen()
 Columns("A:smiley:").Insert Shift:=xlToRight
End Sub

Die Verknüpfung mit einem Button kriegst du selber hin?
Falls nicht, melde dich wieder.

Gruß, Andreas