Remove Empty Rows ,Columns & Sort

I have attached my sample sheet. my requirement's as bellow..

01.row 2 is document header, but u can see some columns don't have data. so i want to delete that all the empty columns.

02.As a my sample longest data column is column "B". B65 cell is the last data cell. from that cell to " Mean Average " row ,some empty rows are there. so i want to remove that empty rows up to one. i mean last longest data cell(in any column) & " Mean Average " rows in between should be only one empty row.

03.after summarizing all the data columns, i want to sort all the available column's one by one in ascending.

Sheet1 is my normal data & sheet2 is my expecting data.

My data range is depend, so pls make macro for this. thanks in advance..

Please Login or Register  to view this content.

Hi, johncena,

maybe like this:

Please Login or Register  to view this content.

Ciao,
Holger

Hi johncena

This code accommodates this

My data range is depend

Please Login or Register  to view this content.

@HaHoBe and jaslake,

Great stuff guys!

Hi,

I also wrote one:

Please Login or Register  to view this content.

Enhancement from reading Jaslake's code:

Please Login or Register  to view this content.

You're welcome!