Так пойдет?
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S&, R&
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
S = Range("F" & Rows.Count).End(xlUp).Row + 1
R = Target.Row
If Not Application.Intersect(Range("F3:G" & S), Target) Is Nothing Then
If Cells(R, 6) > 0 And Cells(R, 7) > 0 Then
Rows(R + 1).Insert Shift:=xlDown
End If
End If
Application.EnableEvents = True
End Sub
[/vba]В модуль листа. Только снимите объединение ячеек в строке прописью. Иначе работать не будет.