Create a summary list

[Av8tordude]

Can anyone help me with a VBA code that will take this list and create a summary list in column W-Y. Each item should have a subtotal like in the example in the next table. The Ticker and Name are in column A & B and the Amounts are in column P. The output should be place in in C.

Greatly appreciate i anyone could offer your assistance. Thank you kindly.

Ticker

Name

Amount

<tbody>
</tbody>

BA	The Boeing Company	$(617.90)
AAPL	Apple Inc.	$(118.67)
AAPL	Apple Inc.	$ 131.34
AAPL	Apple Inc.	$(238.07)
BA	The Boeing Company	$(374.06)
BA	The Boeing Company	$(101.09)
BA	The Boeing Company	$ 36.92
SPY	SPDR S&P 500 ETF	$ 304.10
AAPL	Apple Inc.	$(538.29)
SPY	SPDR S&P 500 ETF	$ 274.10
SQ	Square	$ 466.71
AAPL	Apple Inc.	$ 87.77
IBM	International Business Machines Corporation	$ 262.10
NVDA	NVIDIA Corporation	$ 708.93
SPY	SPDR S&P 500 ETF	$ 286.69
BA	The Boeing Company	$ 933.90

<tbody>
</tbody>

icker

Name

Total

<tbody>
</tbody>

AAPL	Apple Inc.	$($657.92)
BA	The Boeing Company	$(122.23)
IBM	International Business Machines Corporation	$262.10
NVDA	NVIDIA Corporation	$708.93
SPY	SPDR S&P 500 ETF	$(864.89)
SQ	Square	$466.71

<tbody>
</tbody>

 

[Av8tordude]

Excellent...Thank you Peter!...Cheers

 

[Peter_SSs]

No problem. Glad to help.

 

[Av8tordude]

How can I change this code to use COUNTIF. I want to count the number of instances of each value and put the results in column 22 ("V")

[COLOR=#333333]Columns(3).Formula = "=SUMIF(" & rData.Columns(1).Address & ",W1," & rData.Columns(3).Address & ")"[/COLOR]

 

[Peter_SSs]

Try

"=COUNTIF(" & rData.Columns(1).Address & ",W1)"

 

[Av8tordude]

Thank you Peter. I'm not at my computer now however will this be inserted in column V?

 

[Peter_SSs]

Thank you Peter. I'm not at my computer now however will this be inserted in column V?

I don't know because I'm not sure where everything else is and you just quoted 1 line of code so I just altered the formula part as best I could guess.