Hello,
I was able to prepare single day data (minimum required columns).
I did some looped sorting where i first count number of rows and columns in pivot sheet (pivot is presorted from high to low in both rows and columns), and then sort them in a way below
rows = number of rows counted from file
columns = number counted from file
r,c - counters for loops (rows/columns)
Starts with
c=2
r=rows
Effect isn't bad but far from perfect.
Do
ActiveSheet.Range(Cells(r, 2), Cells(rows, columns)).Sort Key1:=Cells(r, 2), _
Order1:=xlAscending, _ 'Descending?
Orientation:=xlSortRows
r = r - 1
Loop Until r = 4
Do
ActiveSheet.Range(Cells(5, c), Cells(rows, columns)).Sort Key1:=Cells(5, c), _
Order1:=xlAscending, _
Orientation:=xlSortColumns
c = c + 1
Loop Until c = columns + 1