try
Option Explicit
Sub Macro1()
Dim LastRow As Long, _
RowPtr As Long, _
RepeatCount As Long
LastRow = Range("A1").CurrentRegion.Rows.Count
For RowPtr = LastRow To 2 Step -1
RepeatCount = Cells(RowPtr, "U").Value
Cells(RowPtr, "A").Resize(ColumnSize:=21).Copy
Cells(RowPtr + 1, "A").Resize(RowSize:=RepeatCount - 1, ColumnSize:=21).Insert _
Shift:=xlDown
Application.CutCopyMode = False
Cells(RowPtr, "U").Copy
Cells(RowPtr + 1, "D").Resize(RowSize:=RepeatCount, ColumnSize:=17).Select
Selection.PasteSpecial _
Paste:=xlPasteAll, _
Operation:=xlDivide, _
SkipBlanks:=False, _
Transpose:=False
Next RowPtr
End Sub
Bookmarks