Macro to Insert two columns to the left of a moving total column

Hi, I'm new to VBA coding and I've been trying to create a macro to insert two new columns to the left of a "Total" column that continues to grow to the right as new columns are added. I'd like the insert to be initiated by a button. My attempt at recording a macro failed as my new columns seem to go to a static position. I copied two columns that I would like to use as my format and pasted them to the left of the "Total" column. I can't seem to get the macro to find the end column and go back one to insert the new column. When I run the macro, it overwrites my previous insertion. Any help would be greatly appreciated.

Thanks

JM

Assuming the "Totals" column is the last column and that Row A has a value in the last column.

Please Login or Register  to view this content.

Insert Coloumns.xlsx

Thanks for the reply. That didn't quite do what I was hoping. Attached is a basic idea of what I would like the worksheet
to look like before and after the macro has run.

Thanks,

JM

Sub Insert()

Columns("H:I").Select
Selection.Copy
Range("IV2").End(xlToLeft).Offset(0, -1).EntireColumn.Insert
Range("IV2").End(xlToLeft).Offset(0, -1).Select

End Sub

This seems to be close to what I'm looking for

Your workbook has merged cells which causes a significant problem for macros. You will need to remove them. Try this:

Please Login or Register  to view this content.

Thanks, I used your date code and incorporated it with my attempt. This worked nicely.

Sub Insert()

Range("InsertColumns").Select
Selection.Copy
Range("IV2").End(xlToLeft).Offset(0, -1).EntireColumn.Insert
Cells(1, Columns.Count).End(xlToLeft).Value = Date
Range("IV2").End(xlToLeft).Offset(0, -1).Select

End Sub