Dynamic Columns? (this time with example)

I am trying to create dynamic columns on a report tab, based on pre-defined filter sorts. The issue is I cannot figure out how to automatically change the headings and number of columns.

See example.

Thank you in advance.

You could try adding these lines to your "Blond" macro:

ActiveSheet.AutoFilter.Range.Copy
Sheets("Report").Activate
Range("B2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Columns("D:G").Delete
Columns("B:C").AutoFit

For macros "Age" and "State" you just modify which columns to delete and which should be "Autofit".

If you don't wish to add the headings to your report use

ActiveSheet.AutoFilter.Range.Offset(1).Copy

Alf

Thank you Alf. I am trying the code.