Option Explicit
Private Sub CommandButton1_Click()
Dim derlig As Long, i As Long
With Sheets("BASE")
derlig = .Range("e" & Rows.Count).End(xlUp).Row
For i = 5 To 10
Range("d" & i) = Application.SumIf(.Range("e3:e" & derlig), Range("c" & i), .Range("g3:g" & derlig))
Range("f" & i) = Application.CountIfs(.Range("c3:c" & derlig), Range("h" & i), .Range("e3:e" & derlig), Range("c" & i))
Range("g" & i) = Application.CountIfs(.Range("c3:c" & derlig), Range("i" & i), .Range("e3:e" & derlig), Range("c" & i))
Next i
End With
End Sub