Repeating macro

Hello everyone. This should be a fairly easy thing to change and programme. I have a macro that I recorded, where I start at collum AT, adds 8 collums to the left and then copy-pastes the formulas from collums J to Q in there. Now, I want this macro to then be prepared to repeat this inset->copy->paste action on a new collum that's 11 collums to the right (in this case, that would be collum BK). Then, every time I run the macro, it will do these actions on +11 colum than it started off.

As it is now, it just keeps repeating this action on collum AT, constantly inserting more collums and pasting the info.

Could anyone help modify the macro, please? Thank you very much.





Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Columns("AT:AT").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AB2:AI3").Select
Range("AI2").Activate
Selection.Copy
ActiveWindow.SmallScroll ToRight:=11
Range("AT2").Select
ActiveSheet.Paste
Range("AT3:BA3").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AT3:BA1260")
Range("AT3:BA1260").Select
ActiveWindow.SmallScroll ToRight:=11
Range("BL2").Select
End Sub

Like this?

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Columns("AT:AT").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("AB2:AI3").Select
Range("AI2").Activate
Selection.Copy
ActiveWindow.SmallScroll ToRight:=11
Range("AT2").Select
ActiveSheet.Paste
Range("AT3:BA3").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("AT3:BA1260")
Range("AT3:BA1260").Select
ActiveWindow.SmallScroll ToRight:=11
Range("BL2").Select
End Sub

I'm not sure what this does but if you say it's easier to work with, then ok.