VBA copy columns, paste before second to last column, fill down in subtotals table

[Chenboy2]

Hi,

Please see the attached screenshot. I would like the VBA code to allow users to add new categories by inserting new categories for the budget spreadsheet by copy/pasting the last category and amounts columns before Miscellaneous and then inserting a new row in the current categories subtotals table in A1:D16, referencing the new amounts cell row heading, filling down cells in B:D.

I want this to be able to able to be repeated anytime and not the specific columns are to be referenced as the new columns to be copied will be different each time and the new rows on the category subtotals table will be different each time too.

Please let me know if you have any questions.

Thanks!

Victor

 

[Chenboy2]

Here's the XL2BB:

5-SimplifiedMonthlyBudget2020-2.xlsm
	A	B	C	D	E	F																							AC	AD	AE	AF
1	Category	Amount	% - Income	% - Expenses		Date																							Description -		Description - Miscellaneous	Miscellaneous
2	Income	$0.00	#DIV/0!			Jan 1
3	Utilities	$0.00	#DIV/0!	#DIV/0!		Jan 2
4	Groceries	$0.00	#DIV/0!	#DIV/0!		Jan 3
5	Dining out	$0.00	#DIV/0!	#DIV/0!		Jan 4
6	Transportation	$0.00	#DIV/0!	#DIV/0!		Jan 5
7	Medical	$0.00	#DIV/0!	#DIV/0!		Jan 6
8	Donations	$0.00	#DIV/0!	#DIV/0!		Jan 7
9	Clothes	$0.00	#DIV/0!	#DIV/0!		Jan 8
10	Personal Care	$0.00	#DIV/0!	#DIV/0!		Jan 9
11	Travel	$0.00	#DIV/0!	#DIV/0!		Jan 10
12	Savings	$0.00	#DIV/0!	#DIV/0!		Jan 11
13	0	$0.00	#DIV/0!	#DIV/0!		Jan 12
14	Miscellaneous	$0.00	#DIV/0!	#DIV/0!		Jan 13
15	Total Expenses	$0.00	#DIV/0!	#DIV/0!		Jan 14
16	Balance	$0.00				Jan 15
17						Jan 16
18						Jan 17
19						Jan 18
20						Jan 19
21						Jan 20
22						Jan 21
23						Jan 22
24						Jan 23
25						Jan 24
26						Jan 25
27						Jan 26
28						Jan 27
29						Jan 28
30						Jan 29
31						Jan 30
32						Jan 31
mini-sheet (2)

Cell Formulas
Range	Formula
AC1,AE1	AC1	=CONCATENATE("Description - "&AD1)
C2:C14	C2	='mini-sheet (2)'!$B2/$B$2
D3:D15	D3	='mini-sheet (2)'!$B3/$B$15
B15:C15	C15	=SUM(C3:C14)
A2	A2	='mini-sheet (2)'!$H$1
A3	A3	='mini-sheet (2)'!$J$1
A4	A4	='mini-sheet (2)'!$L$1
A5	A5	='mini-sheet (2)'!$N$1
A6	A6	='mini-sheet (2)'!$P$1
A7	A7	='mini-sheet (2)'!$R$1
A8	A8	='mini-sheet (2)'!$T$1
A9	A9	='mini-sheet (2)'!$V$1
A10	A10	='mini-sheet (2)'!$X$1
A11	A11	='mini-sheet (2)'!$Z$1
A12	A12	='mini-sheet (2)'!$AB$1
A13	A13	='mini-sheet (2)'!$AD$1
A14	A14	='mini-sheet (2)'!$AF$1
B2	B2	=SUM($H:$H)
B3	B3	=SUM($J:$J)
B4	B4	=SUM($L:$L)
B5	B5	=SUM($N:$N)
B6	B6	=SUM($P:$P)
B7	B7	=SUM($T:$T)
B8	B8	=SUM($V:$V)
B9	B9	=SUM($X:$X)
B10:B11	B10	=SUM($Z:$Z)
B12	B12	=SUM(AB:AB)
B13	B13	=SUM(AF:AF)
B14	B14	=SUM($AF:$AF)
B16	B16	=B2-SUM(B3:B14)

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C15	Other Type	Color scale		NO