Zeile einfügen, in eingefügte Zelle Werte eintrage

Füg mit folgendem Code in jedes Sheet Zeilen ein:

Sub FindenEinfuegen()

Dim wks As Worksheet
Dim rng As Range
Dim dinput As String
Dim srng As Range

dinput = InputBox("Nach welchem DN wollen Sie eine Zeile einfügen?")

For Each wks In Worksheets
If wks.Index > 1 Then
Set rng = wks.Cells.Find( _
what:=dinput, _
lookat:=xlWhole, _
LookIn:=xlValues)

If Not rng Is Nothing Then
srng = rng.Address
rng.Offset(1, 0).EntireRow.Insert
Do
Set rng = wks.Cells.FindNext(rng)
If rng.Address <> srng Then
rng.Offset(1, 0).EntireRow.Insert
Else
Exit Do
End If
Loop
End If
End If
Next wks
End Sub

Ich würde gerne gleich in jede eingefügte Zeile in Spalte A + B den Inhalt der Zeile davor sowie in Spalte C und F Einträge aufgrund einer Inputbox durchführen. Ist wohl zu aufwenig oder?

LG
Thomas