Automatically duplicate and insert a row based on a cell value in that row.

[AFnav04]

I have a sheet that I am entering in values for to layout power requirements.
My table has a colum for Devce Name, PDU Location, Max Power (W), Max Current (A) [this is automatically calculated based on he power field divided by 120V], Breaker value [auomaticly looked up based on a defined list of values (5, 10, 20)]. If I enter a current that exceeds 20A I need to create a second line becuase this will require two breakers. I dont want to have to go through and manually add rows every time I run across this issue.

 

[JLGWhiz]

I will assume your headers start in column A and are contiguous, making the amperage column D. The code goes into your standard code module1.

Sub t()
Dim i As Long
    With ActiveSheet 'Be sure hou have the sheet you want the row added to is active
        For i = .Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1
            If .Cells(i, 4).Value > 20 Then
                .Rows(i).Copy 'assumes 2nd breaker will be the same.
                .Rows(i + 1).Insert
                Application.CutCopyMode = False
            End If
        Next
    End With
End Sub