macro to figure % of summed catergories

[instanceoftime]

I have a list of categories. This list in column A and figures in column B.
The number of rows (catergories) some sheets may have 5 categories and others may have 50.

What I am looking for help with is the sum of column B (can be placed at end of last row in column)
and subsequent % of value that category makes up of the total. (to be placed in column C )

I have been doing this manually and it is getting extensive lol. Can I please get some help?

btw: the Xl2bb is AMAZING!!!!!

Happy Holidays

cstSUM-3779039.csv
	A	B	C
1	Category	$	%
2	Bathroom/Kitchen Hardware	1389.96	0.204334
3	Pool Items	699.99	0.102904
4	Fans	714.82	0.105084
5	Patio Furniture	1399.93	0.2058
6	Dining Furniture	779.97	0.114661
7	Safes	399.99	0.058801
8	Flooring	751.78	0.110517
9	Wet/Dry Vacs	319.99	0.047041
10	Beach Gear	345.96	0.050859
11		6802.39
output

Cell Formulas
Range	Formula
C2:C10	C2	=B2/B$11
B11	B11	=SUM(B2:B10)

 

[kevin9999]

Try running this from the active sheet.

Sub ctsSum()
    Dim LRow As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row    
    Cells(LRow + 1, 2).Formula = Application.Sum(Range(Cells(2, 2), Cells(LRow, 2)))
    Range(Cells(2, 3), Cells(LRow, 3)).FormulaR1C1 = _
    "=(RC2/R" & LRow + 1 & "C2)"
End Sub

 

[instanceoftime]

Try running this from the active sheet.

Sub ctsSum()
    Dim LRow As Long
    LRow = Cells(Rows.Count, "B").End(xlUp).Row 
    Cells(LRow + 1, 2).Formula = Application.Sum(Range(Cells(2, 2), Cells(LRow, 2)))
    Range(Cells(2, 3), Cells(LRow, 3)).FormulaR1C1 = _
    "=(RC2/R" & LRow + 1 & "C2)"
End Sub

Awesome works perfect! I thought I could 'adapt' it but you lost me at hello.... How can I do this using column E & F instead of A & B? with the result in G (sorry was trying to keep it simple)

 

[Michael M]

You could also simply use a Pivot table

 

[kevin9999]

Awesome works perfect! I thought I could 'adapt' it but you lost me at hello.... How can I do this using column E & F instead of A & B? with the result in G (sorry was trying to keep it simple)

Like this

Sub ctsSum()
    Dim LRow As Long
    LRow = Cells(Rows.Count, "F").End(xlUp).Row
    Cells(LRow + 1, 6).Formula = Application.Sum(Range(Cells(2, 6), Cells(LRow, 6)))
    Range(Cells(2, 7), Cells(LRow, 7)).FormulaR1C1 = _
    "=(RC6/R" & LRow + 1 & "C6)"
End Sub

 

[instanceoftime]

Sweet, you just made my weekend! Thank you so much Kevin

 

[kevin9999]

Sweet, you just made my weekend! Thank you so much Kevin

You're welcome, and thanks for the feedback