Guru do Excel e Power BI

Amigos boa noite!
Tenho em uma determinada Linha (A1:D1) , onde (A1:C1) recebem quaisquer dado e (D1) receberá um valor numérico qualquer:

A B C D
1 Teste 1 Teste 2 Teste 3 40
2
3
.
.
.

Preciso que as linhas abaixo (A2:C2), (A3:C3) e assim sucessivamente, recebam os mesmos dados da linha (A1:C1), (sejam reproduzidas), pelo número de vezes que for digitado no campo (D1). Necessito ainda que D2, D3 ... D40, recebam o valor 1;

A B C D
1 Teste 1 Teste 2 Teste 3 40
2 Teste 1 Teste 2 Teste 3 1
3 Teste 1 Teste 2 Teste 3 1
.
.
.
40 Teste 1 Teste 2 Teste 3 1

Alguém pode me ajudar ? Já tentei de várias formas ...

Muito Grato

Só para dar para entender, pois o que digitei foi desconfigurado:
A1 = Teste 1
B1 = Teste 2
C1 = Teste 3
D1 = 40
.
.
.
A40 = Teste 1
B40 = Teste 2
C40 = Teste 3
D40 = 1

Olá,

Veja se é isso que precisa. Execute a macro "Teste"

Abraço.

Olá,

Criei a macro"Teste2" que executa a rotina mais rápido caso seja um número grande de linhas.

Abraço.