Help finalizing some VBA code to create two new rows above current row instead of one new row above and one new row below

[ubergreen]

I found this code online and have been trying to modify it to fit what I need it to do. The only thing is with this current code is that it creates one new row below and one new above the row that this code applies to. I want both new rows to be created above the row.

Sub new_rows()

For i = 2 To 1000

    size1 = Cells(i, 2).Value
    size2 = Cells(i, 3).Value

    
    If size 1 <> "" And size 1 <> 0 Then
    Cells(i, 1).Offset(0, 0).EntireRow.Insert
    Cells(i, 2) = size1
    i = i + 2
    End If



    If size 2 <> "" And size 2 <> 0 Then
    Cells(i, 1).Offset(0, 0).EntireRow.Insert
    Cells(i, 2) = size2
    i = i + 2
    End If


Next

End Sub

 

[Fuji]

See if this works as you expected.

Sub test()
    Dim i&, x&, a
    For i = Cells.SpecialCells(11).Row To 2 Step -1
        x = Application.Count(Rows(i).Range("b1:c1"))
        If x Then
            a = Rows(i).Range("b1:c1").Value
            Rows(i).Resize(x).EntireRow.Insert
            If x = 1 Then
                Rows(i).Range("b1").Value = Application.Sum(a)
            Else
                Rows(i).Range("b1:b2").Value = Application.Transpose(a)
            End If
        End If
    Next
End Sub