Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub y_Replicate_Data() Dim i As Variant Dim J As Variant Dim k As Variant If MsgBox("Would you like to replicate the data records based on the number of units in Column E?" & vbCrLf & vbCrLf & _ "Please make SURE ..." & vbCrLf & vbCrLf & _ "(1)... that the number of units are located in Column E and ..." & vbCrLf & _ "(2)... the article numbers are sorted in ascending orders!", vbYesNo + vbQuestion, "Replicate Data") = vbNo Then Exit Sub End If UsedRange = ActiveSheet.UsedRange.Rows.Count For i = UsedRange To 2 Step -1 J = ActiveSheet.Cells(i, 5) For k = J - 1 To 1 Step -1 Set Rng = ActiveSheet.Range("E" & i).EntireRow Rng.Copy Rng.Offset(1).Insert Shift:=xlDown Next Next End Sub