Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) = "B8" Then
If .Value > "" And Range("B5") > "" Then
Application.EnableEvents = False
Rows(.Row + 1).Insert shift:=xlDown
.Offset(1) = Range("B5")
Application.EnableEvents = True
End If
End If
End With
End Sub
Gruß Gerd :-)