Replacing the headers of columns with the contents of the first cell of the rows to the left of it, and deleting columns if their sums = 0

[Ocicek]

Hi friends.

In excel files provided by Ms Access, which is a group of columns with different column references but specific column headings and ordering;

I want to replace the headers of the named columns with the first cell of the column to the left of these columns and delete them together with the column to the left if the sum of this column is zero.

I haven't been able to find a code that can do this combination. I'm not very good at application matters either.

I tried to explain exactly what I wanted to do with the 3 images attached.

Could someone help me with this?

 

[Crystalyzer]

your images are blury and cannot be read. Can you post the worksheet data using the XL2BB tool? See signature for instructions.

 

[Ocicek]

Hi friends.

In excel files provided by Ms Access, which is a group of columns with different column references but specific column headings and ordering;

I want to replace the headers of the named columns with the first cell of the column to the left of these columns and delete them together with the column to the left if the sum of this column is zero.

I haven't been able to find a code that can do this combination. I'm not very good at application matters either.

I tried to explain exactly what I wanted to do with the 3 images attached.

Could someone help me with this?

your images are blury and cannot be read. Can you post the worksheet data using the XL2BB tool? See signature for instructions.

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1
2			Some Expenses Table
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Fixed Cost1	Fixed Cost2 Description	Fixed Cost2	Fixed Cost3 Description	Fixed Cost3	Common Area Cost1 Description	Common Expense 1	Common Area Cost2 Description	Common Expense 2	Common Area Cost3 Description3	Common Expense 3	Billing Cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Share	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Share	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Share	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Share	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Share	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12
13
14
15
16
Original

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Fixed Cost1])
H11	H11	=SUBTOTAL(109,[Fixed Cost2])
J11	J11	=SUBTOTAL(109,[Fixed Cost3])
L11	L11	=SUBTOTAL(109,[Common Expense 1])
N11	N11	=SUBTOTAL(109,[Common Expense 2])
P11	P11	=SUBTOTAL(109,[Common Expense 3])
Q11	Q11	=SUBTOTAL(109,[Billing Cost])
R11	R11	=SUBTOTAL(109,[Payment])

 

[Ocicek]

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1
2			Some Expenses Table
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Fixed Cost1	Fixed Cost2 Description	Fixed Cost2	Fixed Cost3 Description	Fixed Cost3	Common Area Cost1 Description	Common Expense 1	Common Area Cost2 Description	Common Expense 2	Common Area Cost3 Description3	Common Expense 3	Billing Cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Share	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Share	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Share	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Share	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Share	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12
13
14
15
16
Original

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Fixed Cost1])
H11	H11	=SUBTOTAL(109,[Fixed Cost2])
J11	J11	=SUBTOTAL(109,[Fixed Cost3])
L11	L11	=SUBTOTAL(109,[Common Expense 1])
N11	N11	=SUBTOTAL(109,[Common Expense 2])
P11	P11	=SUBTOTAL(109,[Common Expense 3])
Q11	Q11	=SUBTOTAL(109,[Billing Cost])
R11	R11	=SUBTOTAL(109,[Payment])

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1
2			Some Expenses Table
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Fixed Cost1	Fixed Cost2 Description	Fixed Cost2	Fixed Cost3 Description	Fixed Cost3	Common Area Cost1 Description	Common Expense 1	Common Area Cost2 Description	Common Expense 2	Common Area Cost3 Description3	Common Expense 3	Billing Cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Share	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Share	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Share	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Share	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Share	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Share	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12
13
14
15
16
Original

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Fixed Cost1])
H11	H11	=SUBTOTAL(109,[Fixed Cost2])
J11	J11	=SUBTOTAL(109,[Fixed Cost3])
L11	L11	=SUBTOTAL(109,[Common Expense 1])
N11	N11	=SUBTOTAL(109,[Common Expense 2])
P11	P11	=SUBTOTAL(109,[Common Expense 3])
Q11	Q11	=SUBTOTAL(109,[Billing Cost])
R11	R11	=SUBTOTAL(109,[Payment])

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1					Columns to be processed. These columns always come in this title and order, but they may start in different places in different excel files.
2			Some Expenses Table
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Social Facility Share	Fixed Cost2 Description	Service Cost	Fixed Cost3 Description	Maintanence Cost	Common Area Cost1 Description	Common Area Electricty Share	Common Area Cost2 Description	Common Area Heating Share	Common Area Cost3 Description	Common Area Cost3 Description2	Billing cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Description	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Description	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Description	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Description	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Description	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12	The table always comes with the name Table1 and always starts in cell A3, expanding right and down according to the number of columns and rows.
13
14
Replacing Headers

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Social Facility Share])
H11	H11	=SUBTOTAL(109,[Service Cost])
J11	J11	=SUBTOTAL(109,[Maintanence Cost])
L11	L11	=SUBTOTAL(109,[Common Area Electricty Share])
N11	N11	=SUBTOTAL(109,[Common Area Heating Share])
P11	P11	=SUBTOTAL(109,[Common Area Cost3 Description2])
Q11	Q11	=SUBTOTAL(109,[Billing cost])
R11	R11	=SUBTOTAL(109,[Payment])

 

[Ocicek]

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1					Columns to be processed. These columns always come in this title and order, but they may start in different places in different excel files.
2			Some Expenses Table
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Social Facility Share	Fixed Cost2 Description	Service Cost	Fixed Cost3 Description	Maintanence Cost	Common Area Cost1 Description	Common Area Electricty Share	Common Area Cost2 Description	Common Area Heating Share	Common Area Cost3 Description	Common Area Cost3 Description2	Billing cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Description	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Description	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Description	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Description	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Description	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12	The table always comes with the name Table1 and always starts in cell A3, expanding right and down according to the number of columns and rows.
13
14
Replacing Headers

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Social Facility Share])
H11	H11	=SUBTOTAL(109,[Service Cost])
J11	J11	=SUBTOTAL(109,[Maintanence Cost])
L11	L11	=SUBTOTAL(109,[Common Area Electricty Share])
N11	N11	=SUBTOTAL(109,[Common Area Heating Share])
P11	P11	=SUBTOTAL(109,[Common Area Cost3 Description2])
Q11	Q11	=SUBTOTAL(109,[Billing cost])
R11	R11	=SUBTOTAL(109,[Payment])

I am sorry I am using XLBB tool first time. I did want to post what I want to do 3 step xlbb.

S06 2021831835 Table.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1
2			Some Expenses Table		Description Column that will be deleted	Sum=0 Column that will be deleted	Description Column that will be deleted		Description Column that will be deleted		Description Column that will be deleted		Description Column that will be deleted		Description Column that will be deleted	Sum=0 Column that will be deleted
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Social Facility Share	Fixed Cost2 Description	Service Cost	Fixed Cost3 Description	Maintanence Cost	Common Area Cost1 Description	Common Area Electricty Share	Common Area Cost2 Description	Common Area Heating Share	Common Area Cost3 Description	Common Area Cost3 Description2	Billing cost	Payment
4	S06	S06-01	152.49 m²	€ 2.54	Social Facility Share	€ -	Service Cost	€ 152.49	Maintanence Cost	€ 152.49	Common Area Electricty Share	€ 1,029.72	Common Area Heating Share	€ 8.45	Common Area Cost3 Description	€ -	€ 2.75	€ 1,361.13
5	S06	S06-02	149.90 m²	€ 2.49	Social Facility Share	€ -	Service Cost	€ 149.90	Maintanence Cost	€ 149.90	Common Area Electricty Share	€ 1,012.23	Common Area Heating Share	€ 8.31	Common Area Cost3 Description	€ -	€ 2.75	€ 1,331.10
6	S06	S06-03	232.88 m²	€ 3.87	Social Facility Share	€ -	Service Cost	€ 232.88	Maintanence Cost	€ 232.88	Common Area Electricty Share	€ 1,572.57	Common Area Heating Share	€ 12.91	Common Area Cost3 Description	€ -	€ 2.75	€ 2,060.36
7	S06	S06-04	228.70 m²	€ 3.80	Social Facility Share	€ -	Service Cost	€ 228.70	Maintanence Cost	€ 228.70	Common Area Electricty Share	€ 1,544.34	Common Area Heating Share	€ 12.68	Common Area Cost3 Description	€ -	€ 2.75	€ 2,048.51
8	S06	S06-05	241.92 m²	€ 4.02	Social Facility Share	€ -	Service Cost	€ 241.92	Maintanence Cost	€ 241.92	Common Area Electricty Share	€ 1,633.61	Common Area Heating Share	€ 13.41	Common Area Cost3 Description	€ -	€ 2.75	€ 2,191.49
9	S06	S06-06	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,128.77
10	S06	S06-07	237.50 m²	€ 3.95	Social Facility Share	€ -	Service Cost	€ 237.50	Maintanence Cost	€ 237.50	Common Area Electricty Share	€ 1,603.77	Common Area Heating Share	€ 13.17	Common Area Cost3 Description	€ -	€ 2.75	€ 2,105.99
11	7	7	1,480.89 m²	€ 24.63		€ -		€ 1,480.89		€ 1,480.89		€ 10,000.00		€ 82.09		€ -	€ 19.25	€ 13,227.36
12
Del Descr and Sum0 Columns

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(103,[Street])
B11	B11	=SUBTOTAL(103,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Social Facility Share])
H11	H11	=SUBTOTAL(109,[Service Cost])
J11	J11	=SUBTOTAL(109,[Maintanence Cost])
L11	L11	=SUBTOTAL(109,[Common Area Electricty Share])
N11	N11	=SUBTOTAL(109,[Common Area Heating Share])
P11	P11	=SUBTOTAL(109,[Common Area Cost3 Description2])
Q11	Q11	=SUBTOTAL(109,[Billing cost])
R11	R11	=SUBTOTAL(109,[Payment])

 

[Crystalyzer]

Thanks for those! They were extremely helpful in understanding what you wanted.

Assumptions I made:
1. If a column header contains the word "Description" then the next column header name should be made the value of the first row of data from the "Description" column
2. The "Description" column can then be deleted
3. If a column has a total = 0 then it should be deleted

Give your original data

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
3	Street	User	Size	Some Expense	Fixed Cost1 Description	Fixed Cost1	Fixed Cost2 Description	Fixed Cost2	Fixed Cost3 Description	Fixed Cost3	Common Area Cost1 Description	Common Expense 1	Common Area Cost2 Description	Common Expense 2	Common Area Cost3 Description3	Common Expense 3	Billing Cost	Payment
4	S06	S06-01	152.49	2.535925748	Social Facility Share	0	Service Cost	152.49	Maintanence Cost	152.49	Common Area Electricty Share	1029.718615	Common Area Heating Share	8.453085843	Common Area Cost3 Share	0	2.75	1361.1256
5	S06	S06-02	149.9	2.492853759	Social Facility Share	0	Service Cost	149.9	Maintanence Cost	149.9	Common Area Electricty Share	1012.229132	Common Area Heating Share	8.309512544	Common Area Cost3 Share	0	2.75	1331.10218
6	S06	S06-03	232.88	3.872820436	Social Facility Share	0	Service Cost	232.88	Maintanence Cost	232.88	Common Area Electricty Share	1572.567848	Common Area Heating Share	12.90940148	Common Area Cost3 Share	0	2.75	2060.36416
7	S06	S06-04	228.7	3.803306569	Social Facility Share	0	Service Cost	228.7	Maintanence Cost	228.7	Common Area Electricty Share	1544.341578	Common Area Heating Share	12.67768859	Common Area Cost3 Share	0	2.75	2048.51158
8	S06	S06-05	241.92	4.023156647	Social Facility Share	0	Service Cost	241.92	Maintanence Cost	241.92	Common Area Electricty Share	1633.61222	Common Area Heating Share	13.41052218	Common Area Cost3 Share	0	2.75	2191.48868
9	S06	S06-06	237.5	3.949651553	Social Facility Share	0	Service Cost	237.5	Maintanence Cost	237.5	Common Area Electricty Share	1603.765303	Common Area Heating Share	13.1655052	Common Area Cost3 Share	0	2.75	2128.77368
10	S06	S06-07	237.5	3.949651553	Social Facility Share	0	Service Cost	237.5	Maintanence Cost	237.5	Common Area Electricty Share	1603.765303	Common Area Heating Share	13.1655052	Common Area Cost3 Share	0	2.75	2105.99479
11	7	7	1,480.89	24.63		-		1,480.89		1,480.89		10,000.00		82.09		-	19.25	13,227.36
Original Data

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(3,[Street])
B11	B11	=SUBTOTAL(3,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
F11	F11	=SUBTOTAL(109,[Fixed Cost1])
H11	H11	=SUBTOTAL(109,[Fixed Cost2])
J11	J11	=SUBTOTAL(109,[Fixed Cost3])
L11	L11	=SUBTOTAL(109,[Common Expense 1])
N11	N11	=SUBTOTAL(109,[Common Expense 2])
P11	P11	=SUBTOTAL(109,[Common Expense 3])
Q11	Q11	=SUBTOTAL(109,[Billing Cost])
R11	R11	=SUBTOTAL(109,[Payment])

Using this code

Sub RenameAndDeleteTableColumns()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets(ActiveSheet.Name)
    
    If ws.ListObjects.Count <> 1 Then Exit Sub
    
    Set tbl = ws.ListObjects(1)
    
    i = 1
    
    While i <= tbl.ListColumns.Count
        If tbl.ListColumns(i).Name Like "*Description*" Then
            tbl.ListColumns(i + 1).Name = tbl.DataBodyRange(1, i).Value
            tbl.ListColumns(i).Delete
            i = i - 1
        Else
            If tbl.ListColumns(i).Total = 0 Then
                tbl.ListColumns(i).Delete
                i = i - 1
            End If
        End If
        i = i + 1
    Wend
End Sub

I get this output

Book1
	A	B	C	D	E	F	G	H	I	J
3	Street	User	Size	Some Expense	Service Cost	Maintanence Cost	Common Area Electricty Share	Common Area Heating Share	Billing Cost	Payment
4	S06	S06-01	152.49	2.535925748	152.49	152.49	1029.718615	8.453085843	2.75	1361.125602
5	S06	S06-02	149.9	2.492853759	149.9	149.9	1012.229132	8.309512544	2.75	1331.102182
6	S06	S06-03	232.88	3.872820436	232.88	232.88	1572.567848	12.90940148	2.75	2060.36416
7	S06	S06-04	228.7	3.803306569	228.7	228.7	1544.341578	12.67768859	2.75	2048.511584
8	S06	S06-05	241.92	4.023156647	241.92	241.92	1633.61222	13.41052218	2.75	2191.488682
9	S06	S06-06	237.5	3.949651553	237.5	237.5	1603.765303	13.1655052	2.75	2128.773685
10	S06	S06-07	237.5	3.949651553	237.5	237.5	1603.765303	13.1655052	2.75	2105.994792
11	7	7	1,480.89	24.63	1,480.89	1,480.89	10,000.00	82.09	19.25	13,227.36
Original Data (2)

Cell Formulas
Range	Formula
A11	A11	=SUBTOTAL(3,[Street])
B11	B11	=SUBTOTAL(3,[User])
C11	C11	=SUBTOTAL(109,[Size])
D11	D11	=SUBTOTAL(109,[Some Expense])
E11	E11	=SUBTOTAL(109,[Service Cost])
F11	F11	=SUBTOTAL(109,[Maintanence Cost])
G11	G11	=SUBTOTAL(109,[Common Area Electricty Share])
H11	H11	=SUBTOTAL(109,[Common Area Heating Share])
I11	I11	=SUBTOTAL(109,[Billing Cost])
J11	J11	=SUBTOTAL(109,[Payment])