Makro Zeichen finden, Zeile einfügen, Summe bilden

Question

ich brauche ein Makro das ein bestimmtes Zeichen findet, darüber eine Zeile einfügt, und darin eine Summe bildet von den 2 darunter liegenden Zeilen.

Answer 1

ergänzend: ich will das danach die ganze Tabelle durchsucht wird und am Ende dieser aufgehört wird, damit nicht von vorne (Endlosschleife) begonnen wird.

Answer 2

...so mal sehen ob jetzt jemand antworten kann ;-)

hmm hier ist mein Makro, aber es funzt net.
Ist ne Endlosschleife... was ist falsch daran?
Möchte, dass das Tabellenblatt einmal durchlaufen wird
und dabei die Zellen eingefügt und berechnet, danach
soll Schluss sein.

With Worksheets(1).Range("a1:j32000")
Set c = .Find(what:="RS")
If Not c Is Nothing Then
firstAddress = c.Address
Do
Rows("138:138").Select
Selection.Insert Shift:=xlDown
Range("H138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
Range("H138").Select
Selection.AutoFill Destination:=Range("H138:J138"), Type:=xlFillDefaultRange("H138:J138").Select
Range("G138").Select
ActiveCell.FormulaR1C1 = "=R[-2]C"
Range("G138").Select
Selection.AutoFill Destination:=Range("A138:G138"), Type:=xlFillDefault
Range("A138:G138").Select
Range("D135").Select
Selection.Copy
Range("D138").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("136:137").Select
Selection.EntireRow.Hidden = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub