Inserting Columns

[BrittKnee]

I have the following code to insert columns, but for some reason it won't insert them. It doesn't give an error, the macro just stops and doesn't insert:

Sub Worksheet_S10()


'Activate Workbook
Workbooks("WorkBook.xlsm").Activate
'Activate Worksheet
Workbooks("Workbook.xlsm").Sheets("Sheet1").Activate


'Categorize as Insured or Uninsured
Dim lastRow As Long
lastRow = Range("E" & Rows.Count).End(xlDown).Row
Sheets("sheet1").Range("B10:B" & lastRow).Formula = "=IF(RC[7]>1,""Insured"",""Uninsured"")"


'Create Fiscal Year Based Off of Discharge Date
Sheets("Sheet1").Range("K10:K" & lastRow).Formula = "=YEAR(RC[-7])+(MONTH(RC[-7])>='FY Calculation'!R[-8]C[-10])"


'Insert Columns for Categorization
Workbooks("workbook.xlsm").Sheets("sheet1").Activate

[L9].Resize(, 3).EntireColumn.Insert


Thanks!







End Sub

 

[bukimi]

Why complicate things for inserting columns?

For this use simple code:

Columns(4).Insert Shift:=xlToRight

Just replace "4" with column number where you need a new one.

Tip: This adds new column to active worksheet. If you want it added in specified one it's better to refer to it:

Sheets("Sheet1").Columns(4).Insert Shift:=xlToRight

 

[Fluff]

[L9].Resize(, 3).EntireColumn.Insert

this works for me adding 3 extra columns after col K, on the active sheet.
An alternative would be

Columns(12).Resize(, 3).EntireColumn.Insert

 

[BrittKnee]

Great, this works. Thanks!

 

[Fluff]

Not sure who you're talking to, but
Glad we could help & thanks for the feedback