Inserting Columns VBA Question

[mct2012]

Hello - I am trying to create a macro which inserts two columns prior to the final two columns 'Total' in my worksheet.

When I recorded the macro, the VBA was obviously written to always insert columns at 'BD' and 'BE':

Sheets("VDN").Select
Columns("BD:BE").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

What I need to know is, how do I correct the VBA to reflect that the two columns to be inserted, always insert before the last two 'Total' columns?

Thanks in advance for the help.

 

[mct2012]

Please standby as I figure out how to re-post with images, instead of garbage code.

 

[Smitty]

Welcome to the Board!

Something like this maybe:

Sub foo()
    Dim lc As Long
    
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    
    Range(Cells(1, lc), Cells(1, lc).Offset(, -1)).EntireColumn.Insert
    
End Sub

HTH,

 

[mct2012]

Thanks! I will give this a try and see how it goes. Appreciate the help!