VBA: repeat a formula a number of times

Sub ab()
    
    Dim cell As Range, Nextrow As Long
    
    Nextrow = 1
    For Each cell In Range("A1", Range("A" & Rows.Count).End(xlUp))
        Sheets("Sheet2").Range("E" & Nextrow).Resize(cell.Value).Value = cell.Offset(, 1).Value
        Nextrow = Nextrow + cell.Value
    Next cell
    
End Sub