VBA find Max, Min and Sum

[MikeCook69]

I have 2 worksheets. The first work sheet has my raw data. The second worksheet has a list that I am trying to find the max and min values of the raw data and the sum. My data is not sorted.

Worksheet 1

A	B	C	D
g	1	4	10
e	2	3	12
g	1	2	14
g	4	4	16
e	3	5	14
f	2	6	13
e	4	3	10
g	2	2	12

<tbody>
</tbody>

Worksheet 2

A	Min B	Max C	Sum D
g
e

<tbody>
</tbody>

So I'm trying to get the following results.

A	Min B	Max C	Sum D
g	1	4	52
e	2	4	36

<tbody>
</tbody>

I was trying to use a loop with nested if statements but I'm not sure if that is the most efficient method. I also might be making this more complicated that I need to.

 

[Oscar Cronquist]

	A​	B​	C​	D​	E​	F​	G​	H​	I​
1​	g	1​	4​	10​			Min B	Max C	Sum
2​	e	2​	3​	12​		g	1​	4​	52​
3​	g	1​	2​	14​		e	2​	4​
4​	g	4​	4​	16​
5​	e	3​	5​	14​
6​	f	2​	6​	13​
7​	e	4​	3​	10​
8​	g	2​	2​	12​

Sheet: Sheet18

Formula in cell I2:
=SUMIFS($D$1:$D$8,$A$1:$A$8,F2,$B$1:$B$8,">="&G2,$C$1:$C$8,"<="&H2)

Sub Macro1()


    Range("I2").Formula = "=SUMIFS($D$1:$D$8,$A$1:$A$8,F2,$B$1:$B$8,"">=""&G2,$C$1:$C$8,""<=""&H2)"


End Sub