Formeln in allen Zeilen anwenden

Hallo Ihr Profis!
Wie kann ich folgende Formel in einer Excel Tabelle auf alle
Zeilen ab der sechsten anwenden, ohne sie tausende mal zu schreiben.

If Range("c6") = "50" Then Range("d6") = "RS"
If Range("c6") = "50" Then Range("J6") = (Range("F6") - Range("l6")) / 2
If Range("c6") = "50" Then Range("k6") = (Range("e6") - Range("l6")) / 2
If Range("c6") = "50" And Range("E6") + Range("F6") >= Pi * Range("L6") / 2 And Range("J6") >= Range("K6") _
Then Range("s6") = 2 * (Range("e6") + Range("f6")) * Sqr((Range("I6") ^ 2) + Range("j6") ^ 2) / 1000000 * Range("B6")
If Range("c6") = "50" And Range("E6") + Range("F6") < Pi * Range("L6") / 2 And Range("J6") <= Range("K6") _
Then Range("s6") = Pi * Range("L6") * Sqr((Range("I6") ^ 2) + (Range("k6") ^ 2)) / 1000000 * Range("B6")

Hallo Dietmar,

so gehte es:

Sub formeltest()
z = 6
Do While Cells(z, 3) <> ""
If Range("C" & z) = "50" Then Range("D" & z) = "RS"
If Range("C" & z) = "50" Then Range("J" & z) = (Range("F" & z) - Range("L" & z)) / 2
If Range("C" & z) = "50" Then Range("K" & z) = (Range("E" & z) - Range("L" & z)) / 2
If Range("C" & z) = "50" And Range("E" & z) + Range("F" & z) >= Pi * Range("L" & z) / 2 And Range("J" & z) >= Range("K" & z) _
Then Range("S" & z) = 2 * (Range("E" & z) + Range("F" & z)) * Sqr((Range("I" & z) ^ 2) + Range("J" & z) ^ 2) / 1000000 * Range("B" & z)
If Range("C" & z) = "50" And Range("E" & z) + Range("F" & z) < Pi * Range("L" & z) / 2 And Range("J" & z) <= Range("K" & z) _
Then Range("S" & z) = Pi * Range("L" & z) * Sqr((Range("I" & z) ^ 2) + (Range("K" & z) ^ 2)) / 1000000 * Range("B" & z)
z = z + 1
Loop
End Sub

Allerdings vermute ich, daß man die Formel selbst auch noch optimieren könnte. Dazu brauche ich aber mehr Information.

Gruß Klaus-Dieter
http://www.klaus-dieter-2000.de
(Excel und VBA speziell für Einsteiger)