Vergleichsoperator erweitern

Application.ScreenUpdating = False
Dim i As Long
Cells(3, 3).Value = Cells(3, 3).Value * 1   'Plausibilisierung für die Temperatur
For i = 3 To Range("C" & Rows.Count).End(xlUp).Row - 1
Cells(i + 1, 3).Value = Cells(i + 1, 3).Value * 1
If Abs(Cells(i + 1, 3).Value) >= 3 * Abs(Cells(i, 3).Value) Then _
Cells(i + 1, 3).Value = Cells(i, 3).Value
Next i
If Abs(Cells(i, 3).Value) >= 3 * Abs(Cells(i - 1, 3).Value) Then _
Cells(i, 3).Value = Cells(i - 1, 3).Value

Jetzt möchte zudem absichern das er ebenso den Vorwert einträgt, falls der Folgewert kleiner-gleich 3 des Vorwertes ist.
Was muss ich ändern?
christian