Hello -
I need help with some VBA targeting any of the columns that contain "AIFinal" in their header. Then adding the 4 previous rows into this column.
There are approximately 20 "AIFinal" columns in the sheet, and approximately 60,000 rows of data
Example of the end result I am looking for below.
<tbody>
</tbody>
Rudimentary code capture below.
Sub AIFillUp()
'
' AIFillUp Macro
Range("AT2").Select
ActiveCell.FormulaR1C1 = "=RC[-4]+RC[-3]+RC[-2]+RC[-1]"
Range("AT2").Select
Selection.AutoFill Destination:=Range("AT2:AT385"), Type:=xlFillDefault
End Sub
Thank you fgor any and all help
I need help with some VBA targeting any of the columns that contain "AIFinal" in their header. Then adding the 4 previous rows into this column.
There are approximately 20 "AIFinal" columns in the sheet, and approximately 60,000 rows of data
Example of the end result I am looking for below.
AI701 | AI501 | AI401 | AI301 | AIFinal01 |
6 | 6 | |||
2 | 2 | |||
4 | 4 | |||
5 | 5 |
<tbody>
</tbody>
Rudimentary code capture below.
Sub AIFillUp()
'
' AIFillUp Macro
Range("AT2").Select
ActiveCell.FormulaR1C1 = "=RC[-4]+RC[-3]+RC[-2]+RC[-1]"
Range("AT2").Select
Selection.AutoFill Destination:=Range("AT2:AT385"), Type:=xlFillDefault
End Sub
Thank you fgor any and all help