macroda döngü hatası

[mersilen]

Selamlar

Tabloda üretim hızını hesaplarken formül kullanıyorum, bunda sorun yok
Excelde bu hücrelerdeki değerleri formülden arındırmam lazım, bunun için macro yapıyım dedim ama döngüyü kuramadım
seçili alandaki formülleri çevireceğim

1-- sütunundaki benzer değerlerin en üstteki ikisini karşılaştıracak(daha sonra c sütunundakilere göre mükerrerleri sildirdiğimden ,en üstteki son tarihli--en yenisi--kalmakta)

2--buna göre formüller çalışacak

Bu kod çalışıyor

Sub NoktaDuzenle44()
Dim i, sat, urhmet As Long
' Dim Wf As WorksheetFunction
' Set Wf = WorksheetFunction
On Error GoTo atla

For i = 20 To Cells(Rows.Count, "B").End(xlUp).Row

If Cells(i, "c") = Cells(i + 1, "c") Then
urhmet = (Range("Ab" & i) - Range("Ab" & i +1 )) / Range("AS20")
Range("AP20") = urhmet
Else: Range("AP" & i) = ""
End If

Next i
Exit Sub

atla:
End Sub

bunuda düzenleyim dedim olmadı

Sub NoktaDuzenle441()
Dim i, sat, urhmet As Long
' Dim Wf As WorksheetFunction
' Set Wf = WorksheetFunction
On Error GoTo atla

For i = 20 To Cells(Rows.Count, "B").End(xlUp).Row

If Cells(i, "c") = Cells(i + 1, "c") Then
'urhmet = (Range("Ab" & i) - Range("Ab" & i + 1)) / Range("AS20")
urhmet = (Cells(i, "AB") - Cells(i + 1, "AB")) / Cells(i, "AS")
'Range("AP20") = urhmet
Cells(i, "AP") = urhmet
Else: Cells(i, "AP") = "dsa"
End If

Next i
Exit Sub

atla:
End Sub