How do I adjust VBA to copy from sheet 1 and paste results on sheet 2?

[NHagedorn]

Not sure how to adjust code to copy from one sheet and paste results on another.


Sub loop4()
'with dynamic range
'dynamic Range (vertical only and horizontal)

'get last used Row
iLastUsedRow = Range("B3").End(xlDown).Row

dateCol = 3

For col = 9 To 12

For r = 3 To 5

'Cells(r,col).FormulaR1C1= "=SUMIFS(R3C3:R16C3, R3C2:R16C2, R3C" & col &")"

Cells(r, col).FormulaR1C1 = "=SUMIFS (R3C" & dateCol & ":R" & iLastUsedRow & "C" & dateCol & _
", R3C2:R" & iLastUsedRow & "C2,R" & r & "C8)"

Next r

dateCol = dateCol + 1

Next col

End Sub

 

[StephenCrump]

Not sure how to adjust code to copy from one sheet and paste results on another.

It's not clear how your question relates to the code you've posted ...

What do you want to copy, and where do you want to paste it?

By the way, you can put in your formula without looping through rows and columns:

Range("I3:L5").Formula = "=SUMIFS(C$3:C$" & iLastUsedRow & ",$B$3:$B$" & iLastUsedRow & ",$H3)"