For b = 4 To 65535
If Cells(b, 1).Value >= c Then
Cells(d, 9).Value = Cells(b, 2).Value
e = (Cells(b, 2).Value - Cells(b - 1, 2).Value) / Cells(b, 1).Value
Cells(d, 10).Value = e
f = e * c + Cells(b - 1, 1).Value
Cells(d, 7).Value = f
c = c + 1
d = d + 1
ElseIf Cells(b, 2).Value = "" Then
b = 65535
Else
End If