Special concatenation

[Ingolf]

Goog Day,

Need some help for some special concatenation.

ConCatSpecial.jpg

The date look like:
AA NAME CC DD EE FF GG HH1
1 BEER 1 0 1 1 1
2 VODCA 1 0 1 1 1
3 COGNAC 1 0 1 1 1
4 WHISKY 1 0 1 1 1

and need a VBA cod to do this:

1;"BEER";"1";"0.00";"1";"1";"1";"";
2;"VODCA";"1";"0.00";"1";"1";"1";"";
3;"COGNAC";"1";"0.00";"1";"1";"1";"";
4;"WHISKY";"1";"0.00";"1";"1";"1";"";

in other sheet.
Thank you.