HI,
I have the below code and I want to drag the formula down tothe last row, that part is working fine.
I have tried two different ways of doing this but are givingthe same result.
The problem is the code is dragging the formula for "B4:AEN4"the whole way.
I need to the formula to update on each row, i.e. “B5:AEN5”then “B6:AEN6” and so on.
Any help is greatly appreciated.
Thanks
I have the below code and I want to drag the formula down tothe last row, that part is working fine.
I have tried two different ways of doing this but are givingthe same result.
The problem is the code is dragging the formula for "B4:AEN4"the whole way.
I need to the formula to update on each row, i.e. “B5:AEN5”then “B6:AEN6” and so on.
Any help is greatly appreciated.
Thanks
Code:
Dim lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).row[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A3").Select
ActiveCell.FormulaR1C1 = "ISI File"
Range("A4").Select
' ActiveCell.FormulaR1C1 = Join(Application.Index(Range("B4:AEN4").Value, 1, 0), "|")
' Range("A4").AutoFill Destination:=Range("A4:A" & lastrow)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000] Range("A4:A" & lastrow).FormulaR1C1 = Join(Application.Index(Range("B4:AEN4").Value, 1, 0), "|")
[/COLOR][/SIZE][/FONT]