Immernoch Probleme mit Formula

Sub J_H_F_B_ersetzen()
Dim aktPosition As Range
Set aktPosition = Selection
With Range(Cells(6, 2), Cells(65536, 2).End(xlUp))
.Replace What:="J", Replacement:="$J$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
With Range(Cells(6, 4), Cells(65536, 4).End(xlUp))
.Replace What:="H", Replacement:="$H$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
.Replace What:="F", Replacement:="$F$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
With Range(Cells(6, 3), Cells(65536, 3).End(xlUp))
.FormulaR1C1 = "=(RC[-1]-R6C2)*R[1]C[5]"
.Replace What:="H", Replacement:="$H$", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End With
Range("C1:C65536").Select
Selection.Replace What:="$H$??", Replacement:="$H$8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="$H$?", Replacement:="$H$8", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Dim Zeile As Integer 'Fehler auch wenn Range steht
!!!     With Zeile = Selection.Row
!!!   Selection.Replace What:="Range($B$6)", Replacement:="Range($B$" &Zeile)", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=True
End With
aktPosition.Select
End Sub