Special concatenation

[Ingolf]

snb, thanks for reply

Result of VBA cod sould be;

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";"";
5;"BEER";"1";"0,00";"1";"1";"1";"";

Your VBA cod result is:
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"
"5";"BEER";"1";"0";"1";"1";"1"

left numbers should not be surrounded by quotation marks.
If in the seventh column is not a number, must be empty quotation marks (""). I add to first 2 line (in red)
After last number must be ";" (without quotation marks)
It must be like result of Rick VBA code.
Can you fix it? Thanks.