Auto Calculation and Sort over Multiple Colums & Rows

[Rusty Reeves]

Hi Team & Friends...

I need a VBA script that will automatically sort my data in my Top 20 Hits Spreadsheet in Excel which starts From Column A to Column H with Column H as the 1st Column to sort in Descending order. The rows is from Row 2 to Row 23... (Row 1 Headers) The rows must move up or down depending on the figure in Column H which must be automatically sorted according to the total in Column H.

Stereo1 Top 20 Gospel Hits Vote Sheet 2021_1_BB.xlsx
	A	B	C	D	E	F	G	H
1	Top 20 Results 27 January 2021		eMail	W/App	SMS	F/Book	Votes	% Votes
2	3	C	4	1	4	1	10	8.40
3	4	D	5	1	2	1	9	7.56
4	2	B	3	1	1	1	6	5.04
5	5	E	1	1	3	1	6	5.04
6	1	A	2	1	5	1	9	7.56
7	6	F	1	11	2	1	15	12.61
8	7	G	1	1	1	1	4	3.36
9	8	H	1	1	1	1	4	3.36
10	9	I	1	1	1	1	4	3.36
11	10	J	1	1	1	1	4	3.36
12	11	K	1	1	1	1	4	3.36
13	12	L	1	1	1	1	4	3.36
14	13	M	1	1	1	1	4	3.36
15	14	N	1	1	1	1	4	3.36
16	15	O	1	1	1	1	4	3.36
17	16	P	1	1	1	1	4	3.36
18	17	Q	1	1	1	1	4	3.36
19	18	R	1	1	1	1	4	3.36
20	19	S	1	1	1	1	4	3.36
21	20	T	1	1	1	1	4	3.36
22	21	U	1	1	1	1	4	3.36
23	22	V	1	1	1	1	4	3.36
24		119	32	32	33	22	119	100.00
25	Votes Counted						Total Votes	Total %
Sheet1

Cell Formulas
Range	Formula
G2:G23	G2	=SUM(C2:F2)
H2:H23	H2	=G2/I2*100
B24	B24	=G24
C24:H24	C24	=SUM(C2:C23)

 

[igold]

Hi Rusty Reeves... Welcome to the MrExcel Forum!

Have you tried using the Macro Recorder...

 

[Rusty Reeves]

I have my VBA as follows for description above...
Private Sub Worksheet_Change(ByValueTarget As Excel.Range)
If Target.Column = 8 Then
DimlastRow = "A23"

LastRow = Cells(Rows.Count, 8).End(xlUp).Row
Range("A2:H" & LastRow).Sort Key1:=Range("H2:H" & LastRow), order1:=xlDescending, Header:=xlNo

End If

End Sub

But is wont calculate and move cell in row up to higher or lower position according to data in Column H