Insert column with text parts from two cells

[CoSinus]

Hello, everyone,
I would like to insert a help column to the right of column A.

Fox.png

This column should take over the cell contents of A and also the contents of column C, unless it is a pure number.
A number that is combined with text or characters does not count and can be used (row 4)

There should be a hyphen between the text from A and the text from B.

In the attached picture you can see the compound inserted column B.
If column C is empty, then the macro should go to the next (D) and take the word or word/character combination and insert it after the hyphen (example row 12).
If column D is also empty, then the macro should find the next described column and if there it takes the word or word-character combination, and so on. (row 20)

If the column C or the next described column contains a pure number and no letter, then nothing should happen (row 19).

I have a formula that can do this but I would like a code.

=TEXTJOIN("-",TRUE,A1,IFERROR(INDEX(C1:K1,MATCH(1,ISTEXT(C1:K1)*(C1:K1<>""),0)),""))

Thanks very much in advance for your help