Insert Column VBA with Button

[HMCCRAINE]

Hi, I'm running that copies and inserts a column using a button. However, I want the macro to increase the destination by one, ex. after it inserts in column 12 I want the next click to insert in column 13 then 14 and so on. Instead of it continuously inserting in column 12 and pushing everything to the right.

Sub Button4_Click()
Application.CutCopyMode = False

With Worksheets("FTS")
.Columns(11).COPY
.Columns(12).INSERT Shift:=xlShiftDown
End With

Application.CutCopyMode = True
End Sub

 

[HMCCRAINE]

Sub Button4_Click()
Application.CutCopyMode = False

With Worksheets("FTS")
.Columns(11).COPY
.Columns(12).INSERT Shift:=xlShiftDown
End With

Application.CutCopyMode = True
End Sub