Inserting New Rows based on cell value, and copying data to the new rows

[gi_cho]

Hello!

I have an issue where I'm trying to add rows based on a cell value in column 2, and then copy that row's contents to those new rows. I found the VBA code below on another thread, but I have not been able to figure out one small issue.

The cell value in column 2 should be the TOTAL number of rows, but because the code doesn't account for the original row, there is one too many for each iteration.

For example, Business ABC should have 10 copies, and thus, has entered a 10 in column 2. I will run the code and it will ADD 10 rows below the original row. Now there are 11 rows of data for Business ABC.

Thanks in advance!

Sub Inert_rows()
  Dim r As Long
  
  For r = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    With Cells(r, 2)
      If IsNumeric(.Value) And Not IsEmpty(.Value) Then
        Rows(r + 1).Resize(.Value).Insert
        Range(Replace("A#:H#", "#", r)).Copy Destination:=Range("A" & r + 1).Resize(.Value)
      End If
    End With
  Next r
End Sub

 

[juliesmithing]

Did you get an answer for this? Maybe Peter_SSs will see this. That guy knows his stuff

 

[juliesmithing]

If you try this will just copy the cell value and not the original cell

Sub Inert_rows()
  Dim r As Long
  
  For r = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    With Cells(r, 2)
      If IsNumeric(.Value) And Not IsEmpty(.Value) Then
        Rows(r + 1).Resize(.Value).Insert
        Range(Replace("A#:H#", "#", r)).Copy Destination:=Range("A" & r - 1).Resize(.Value)
      End If
    End With
  Next r
End Sub

 

[Pulsar3000]

I have a somewhat similar request except I'd like to know if there's a non-VBA solution such as Excel formulas or Power Query to accomplish the task.
Does anyone know the answer?
I can post an Excel file for specifics but perhaps the answer.
Essentially, it's appending new rows of data based on cell values in another sheet.
I can create a new post as well if that's best.

 

[Pulsar3000]

Found a non-VBA solution. Please disregard.

 

[Bennets04]

Found a non-VBA solution. Please disregard.

What did you find, think I have a similar issue