Sub test_1()
    Dim rng As Range, cl As Range
    Dim i As Integer, wr As Long  '<~~ wr is write row

With Sheets("Sheet1")  '<~~ change sheet name to suit
    Set rng = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    wr = 2  '<~~ row to start writing on
    For Each cl In rng
        For i = 1 To cl.Offset(, 1).Value * 2
            .Cells(wr, 5).Value = cl.Value  '<~~ column E is 5
            wr = wr + 1
        Next i
    Next cl
End With
End Sub