Bom dia.

Eu não entendi, e também não tem anexo!

Eu tinha enviado sem compactar o arquivo! Vai aqui!

Vc quer copiar que texto?

E essa quantidade de vezes, você que vai informar ou será por alguma fórmula?

E onde irá colar, será selecionado aleatoriamente?

Cole esse codigo em um modulo

Sub Copiar()

Dim Nome As String
Dim Cont As Integer
Dim Resultado As Integer
Dim linha As Long
Dim ulinha As Long

linha = 3

Cont = 0

Do While Cells(linha, 3).Value <> ""
Resultado = Cells(linha, 4).Value
ulinha = Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Row
Nome = Cells(linha, 3).Value

If Cont <> Resultado Then

Cells(ulinha, 8).Value = Nome
Cont = Cont + 1
Else
linha = linha + 1
Cont = 0
End If

Loop

End Sub

Muito obrigado pessoasl! O código rolou aqui!