Hi Inun,
I have written some code to do this, but it seems starting at 6 and going every 14 rows (6,20,34...etc) ends at 2526
or going every 13 rows (6,19,32...etc) ends at 2528.
Please clarify what you want as 2533-6 is not a multiple of 14.
Either way, here is the code if you wish to modify it for your use.
Code:
Sub copyFormula()
Application.Calculation = xlManual
Dim ws As Worksheet
Set ws = Sheets("Sheet1")
Dim form1 As String
Dim row As Double
form1 = ws.Range("F6").formula
For row = 6 To 2533 Step 13
ws.Cells(row, 6).Formula = form1
Next
Application.Calculation = xlAutomatic
End Sub
This is the formula in F6 that needs copied into F20 , F33 up to F2533
p45Cal's code worked but it is keeping that * A7 pinned down to A7 instead of moving down to A21 ,A35 up to A2534 thanks
=SUM(SUMIFS('Subcontractors Lia OnsiteMcA'!Q:Q,'Subcontractors Lia OnsiteMcA'!S:S,'FWC - Programme'!C:C,'Subcontractors Lia OnsiteMcA'!D:D,'FWC - Programme'!A:A),IF(SUMIFS('Raw Data'!O:O,'Raw Data'!AQ:AQ,"External construction")>SUMIFS('Subcontractors Lia OnsiteMcA'!Q:Q,'Subcontractors Lia OnsiteMcA'!S:S,'FWC - Programme'!C:C),(SUMIFS('Raw Data'!O:O,'Raw Data'!AQ:AQ,"External construction")-SUMIFS('Subcontractors Lia OnsiteMcA'!Q:Q,'Subcontractors Lia OnsiteMcA'!S:S,'FWC - Programme'!C:C))*A7,0),(SUMIF('Subcontractors Lia OnsiteMcA'!D:D,"Various",'Subcontractors Lia OnsiteMcA'!Q:Q)*A7))
If this was helpful, please click 'Like'!