Boa noite!!

Pode ser via VBA?

Sub AleVBA_Repetir()
Application.ScreenUpdating = False
Dim LastRow&, NextRow&, cell As Range
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Columns(3).Clear
NextRow = 2
Range("C1").Value = "Resultado_AleVBA"
For Each cell In Range(Cells(2, 1), Cells(LastRow, 1)).SpecialCells(2)
cell.Copy Range(Cells(NextRow, 3), Cells(NextRow + cell.Offset(0, 1).Value - 1, 3))
NextRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Next cell
Application.ScreenUpdating = True
End Sub

Sem maiores detalhes segue mais uma opção; veja se atende

Sub Replicar()
Dim lastRow As Long, X As Long, Z As Long, T As Long, y As Long
    lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Z = 2
For X = 2 To lastRow
    
     T = Cells(X, 2)
   For y = 1 To T
        Range("E" & Z) = Range("A" & X).Value
    Z = Z + 1
    Next
Next

End Sub

Muito obrigado

Funcionou Perfeitamente