automatic filter and copy to new sheet

Hi,

Is there a macro to filter this active sheet from column A only to remove item group, total for item group & blanks.

then the result will be copied to sheet1 with column width automatic adjust.
before.jpg

After sheet 1 created, normally I use macro to rename column B. so it will be like below.
after.jpg

The code is as below, Can it be combined so I just macro once

Please Login or Register  to view this content.

Regards,
Andy