How about with your sample
Sub CreateTotals()
Dim wsSrc As Worksheet: Set wsSrc = Sheets("Sheet1")
Dim LastRow As Long
Dim LastCol As Long
Application.ScreenUpdating = False
With wsSrc
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row - 2
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 2
With .Range("C3").Resize(LastRow, LastCol)
.Formula = "=SUMIFS('Actual Data'!$D:$D,'Actual Data'!$B:$B,$B3,'Actual Data'!$C:$C,C$1)"
.Value = .Value
End With
End With
Application.ScreenUpdating = True
End Sub
Bookmarks