Yada D ve E sütunlarında alttıopları açarsanız alttaki gibide yeterli olur.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 And Target.Row >= 9 Then

        If Target.Offset(1, -2).Value = "Toplam" Then

            If Target.Value <> "" Then

                Rows(Target.Row + 1).Insert Shift:=xlDown

            End If

        End If

    End If

    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 5 And Target.Row >= 9 Then

        Target.Offset(1, -2).Select

    End If

End Sub