VBA adding column then adding Left formula

[pkam2010]

HI

am new to VBA and trying to create a Marco to add columns to E and L, which i have a as

Range("E1").EntireColumn.Insert
Range("L1").EntireColumn.Insert

but then i want to add a formula to E and L of =Left(D5,5) and =left(k5,5) going down to the last row. but if in row 6 it will be D6 and K6 etc. so the fomula changes as to what row it is in.
the data set i am look at start in row 5


thanks

 

[Fluff]

Re: Help with VBA adding column then adding Left formula

How about

Sub pkam2010()
   Dim Lr As Long
   
   Lr = Range("A" & Rows.Count).End(xlUp).Row
   Range("E:E,K:K").EntireColumn.Insert
   Range("E5:E" & Lr & ",L5:L" & Lr).FormulaR1C1 = "=left(rc[-1],5)"
End Sub

 

[pkam2010]

Re: Help with VBA adding column then adding Left formula

Thanks for that it worked

 

[Fluff]

Re: Help with VBA adding column then adding Left formula

You're welcome & thanks for the feedback