Help VBA Adding 4 Previous columns When Column Matches Criteria

[LNG2013]

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.

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

 

[Fluff]

Do the AI701 etc cells have formulae, or are they hard values?

 

[LNG2013]

Hello if anyone has any ideas how to code his it would be very helpful. thank you.

 

[Fluff]

It would help if you answered the question I asked 4 days ago.

 

[LNG2013]

Do the AI701 etc cells have formulae, or are they hard values?[/QUOTE


Hard values. No formulas.
My apologies I thought I replied previously.

 

[Fluff]

Ok, how about

Sub LNG2013()
   Dim Cl As Range
   Dim UsdRws As Long
   
   UsdRws = Cells.Find("*", , , , xlByRows, xlPrevious, , , False).Row
   With Range("1:1")
      .Replace "Aifinal", "=xxxAIFinal", xlPart, , False, , False, False
      For Each Cl In .SpecialCells(xlFormulas, xlErrors)
         Cl.Offset(1).Resize(UsdRws - 1).FormulaR1C1 = "=RC[-4]+RC[-3]+RC[-2]+RC[-1]"
      Next Cl
      .Replace "=xxxAifinal", "AIFinal", xlPart, , False, , False, False
   End With
End Sub

 

[LNG2013]

Ok, how about

Sub LNG2013()
   Dim Cl As Range
   Dim UsdRws As Long
   
   UsdRws = Cells.Find("*", , , , xlByRows, xlPrevious, , , False).Row
   With Range("1:1")
      .Replace "Aifinal", "=xxxAIFinal", xlPart, , False, , False, False
      For Each Cl In .SpecialCells(xlFormulas, xlErrors)
         Cl.Offset(1).Resize(UsdRws - 1).FormulaR1C1 = "=RC[-4]+RC[-3]+RC[-2]+RC[-1]"
      Next Cl
      .Replace "=xxxAifinal", "AIFinal", xlPart, , False, , False, False
   End With
End Sub

Thank worked splendidly thank you sooo much!
Flawless Victory!

 

[Fluff]

Glad to help & thanks for the feedback