Modifying existing code

[omairhe]

peace,

Sub insert()
Dim start As Long
Dim rows As Long
start = Range("E1")
rows = Range("F1")
Cells(start, 1).Resize(rows).EntireRow.insert
End Sub

how to modify this code so that the same functionality that E1 and F1 has can also be duplicated to E2, F2, E3 and F3. In other words how to add more cells than just E1 and F1 to it. . .
will appreciate help!!

 

[mirabeau]

peace,

Sub insert()
Dim start As Long
Dim rows As Long
start = Range("E1")
rows = Range("F1")
Cells(start, 1).Resize(rows).EntireRow.insert
End Sub

how to modify this code so that the same functionality that E1 and F1 has can also be duplicated to E2, F2, E3 and F3. In other words how to add more cells than just E1 and F1 to it. . .
will appreciate help!!

Hi,

You can easily add a loop to do this. But the end result may vary depending on the ordering of the "start" values. Do you want these sorted into any particular order (largest to smallest in E could be a good idea) or just take them as they come?

Say you have 3 values down each of columns E and F

Sub insert()
Dim start As Long
Dim rows As Long
Dim j As Long
For j = 1 To 3
    start = Range("E" & j)
    rows = Range("F" & j)
    Cells(start, 1).Resize(rows, 4).insert
Next j
End Sub

 

[omairhe]

Do you want these sorted into any particular order (largest to smallest in E could be a good idea) or just take them as they come?

I want them to take them as they come in a loop ... thank you for code I'll let you know how it works out for me.

 

[omairhe]

the code works but some times the row inserted is off set by -1. Maybe the blanks has something to do with it.

 

[omairhe]

nevermind the formula in cell E1 is giving me some trouble...