Loop in columns, select unique values and copy to separate list

Hello gurus,

Need your help again in VBA. I have few columns A/B/C with footer (row 8). I need to create macro which will be able to go through all columns, for each column should be selected only Unique and <>0 values. Then this values copy to separate list, starting from cell G2. File including manual solution is attached. Appriciated for your input!

Hello again,

It works, just last question - how code will look like, if my data will be in range "I25:AU32", header in range "I24:AU24", output list should start from cell "BY22"?

Thx a lot for support!

Also please can we avoid sorting? It will destroy format of my entire sheet. Header A/B/C is just example. Macro should go through first column, copy to list, then go through second column and copy unique in this column only and same loop until column N.

Hello, it's awesome...but works not fully right, until 2nd column code return error message "Run-time error 1004, Application defined or object defined error", what can be the reason?
My template is attached, thank you!