Sub Worksheet_Activate()
Dim DL%
Range("A2:E" & Range("A65500").End(xlUp).Row).ClearContents
Application.ScreenUpdating = False
DL = Sheets("Export").Range("A65500").End(xlUp).Row
Sheets("Export").Columns("A:B").Copy
[A1].Select: ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$B$" & DL).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
DL = Range("A65500").End(xlUp).Row
Range("C2:C" & DL).FormulaR1C1 = "=SUMIFS(Export!C3,Export!C1,RC1,Export!C2,RC2)"
Range("D2:D" & DL).FormulaR1C1 = "=SUMIFS(Export!C5,Export!C1,RC1,Export!C2,RC2)"
Range("E2:E" & DL).FormulaR1C1 = "=SUMIFS(Export!C6,Export!C1,RC1,Export!C2,RC2)"
[A1].Select
End Sub