How to Copying row data to empty rows beneath loop

How to copying row data to empty rows beneath loop

Requirement:

The user is trying to now copy row data to the empty rows beneath it up until the next row with data, and then repeat to the end of the data,

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1199666-copying-row-data-to-empty-rows-beneath-loop

Solution:

Before you run the macro, delete all the blank rows in Sheet1.

Code:

Sub insertRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim x As Long
    For x = LastRow To 4 Step -1
        Rows(x).EntireRow.Copy
        Rows(x + 1).Resize(Cells(x, "J").Value).Insert
    Next x
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.