Macro: copy a range of cells for a list of material

[Geo45]

Hello,

This website helped me a lot since I started learning vba (so thanks a lot), but I couldn't find a solution for the problem I'm facing.

I want to write a macro that will replicate/copy a range of text (line by line) for each material listed in the column A.

Each material in the column A has to have the same text, which is not in one cell, but line by line.
The aim is to "copy" this text for each material in such a way that the material is specified next to each line of the text.

An example is better to understand:

Material	Text
Material 1	Text A
Material 2	Text B
Material 3	Text C
Material 4
Material 5

There are 5 materials in column A and the text consists in 3 lines and is filled in the column B.



The expected result is in column C and D: the text should be the same for each material, and the material next to each line of the text.

Material	Text
Material 1	Text A
Material 1	Text B
Material 1	Text C
Material 2	Text A
Material 2	Text B
Material 2	Text C
Material 3	Text A
Material 3	Text B
Material 3	Text C
Material 4	Text A
Material 4	Text B
Material 4	Text C
Material 5	Text A
Material 5	Text B
Material 5	Text C

Thanks in advance for your help!