VBA Macro to Filter with Input box, Split files, Convert into Excel Table and Sort

Hello,
Good day everyone. Hope you guys are doing great.

I am looking for a vba based solution for the subject mentioned tasks. (almost novice in vba)

I found this code (sheet attached) somewhere on the web, it works find but I need some modification and I hope you guys will help.


Modifications required:

1) Instead of this hard coded range, we need an input box to enter column name (eg: "A")

Set rngFilter = Range("G1", Range("G" & Rows.Count).End(xlUp))

Set rngUniques = Range("G1", Range("G" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)

2) Before saving we need in each file, Convert the data into Excel Table and add a Total row and sum formula in column E (Table total row).


3) Sort Column E (Largest to smallest)

Any or all help is appreciated.

Regards,