Offset Rows Loop by Value in AH

[manthony]

Hi, I am struggling with my code below and I am hoping someone can help.

I have a formula in column AP that returns a number or a blank. I am trying to write some code so that if my formula in column AP returns a number then offset/insert (X) number of rows below based on the value in column AH. For example if cell AP2 = 1 and the value in AH2 is 3 then 3 rows will be inserted below AP2. The values in AH vary. Below is what I have so far.


Sub Macro4()
'
' Macro4 Macro


Last = Cells(Rows.Count, "AP").End(xlUp).Row
For i = Last To 1 Step -1
If IsNumeric(Cells(i, "AP").Value) Then
Cells(i, "AP").Offset(RowOffset:=(Cells(i, "AH").Value)).EntireRow.Insert
End If
Next i

End Sub

 

[Osvaldo Palmeiro]

Hi. Try:

Sub Macro4V2()
 Dim Last As Long, i As Long
 Last = Cells(Rows.Count, "AP").End(xlUp).Row
  For i = Last To 1 Step -1
   If IsNumeric(Cells(i, "AP").Value) Then
    Rows(i + 1 & ":" & i + Cells(i, "AH")).EntireRow.Insert
   End If
  Next i
End Sub

 

[manthony]

Hi,

Thank you so much this works perfectly.

Thank you