Apply Interpolation Formula to Scattered Blank Cells in an Array

Using Office 365.

I have about 1000 blank cells in an array that I need to fill with an interpolation formula. I believe a Macro would work for this but I' having a hard time figuring out the best way to help the Macro identify the blank cells that need to be filled with the interpolation formula, and once they are identified, how to deal with sequential blank cells (due to the the way the interpolation formula references cells above and below the blank cell to-be-filled). I think the best way to solve this would be to have a Macro locate a blank cell then conduct the interpolation formula with one caveat, the macro would have to set the two cells the formula must reference below the blank cell, to the next available non-blank cells, not simply the cells below the blank cell, regardless of how far down the array they are. I'm grateful for any insight and/or suggestions. Please see below and attached for pictures illustrating the problem and the excel sheet to experiment with.

Interpolation Macro_Question.png

Solved. Added a few more "If" statements that will keep interpolating even if encountering 3 blank cells. At four blank sequential cells, the macro will display a pop up alerting the user off the blank cells and terminating the macro.

Sub auto_interp()

Dim x As String
Dim y As Integer

x = "True"

While x = "True"
If Cells(2, 8) > 0 Then x = "True" Else: x = "False"
y = Cells(2, 8)

If Cells(y + 1, 2) > 0 Then
Cells(y, 2) = Cells(y - 1, 2) + ((Cells(y, 1) - Cells(y - 1, 1)) / (Cells(y + 1, 1) - Cells(y - 1, 1)) * (Cells(y + 1, 2) - Cells(y - 1, 2)))
Else:
If Cells(y + 1, 2) = 0 Then
If Cells(y + 2, 2) > 0 Then Cells(y, 2) = Cells(y - 1, 2) + ((Cells(y, 1) - Cells(y - 1, 1)) / (Cells(y + 2, 1) - Cells(y - 1, 1)) * (Cells(y + 2, 2) - Cells(y - 1, 2)))
If Cells(y + 2, 2) = 0 Then
If Cells(y + 3, 2) > 0 Then Cells(y, 2) = Cells(y - 1, 2) + ((Cells(y, 1) - Cells(y - 1, 1)) / (Cells(y + 3, 1) - Cells(y - 1, 1)) * (Cells(y + 3, 2) - Cells(y - 1, 2)))
If Cells(y + 3, 2) = 0 Then
MsgBox "Four Blank Cells Encountered, Terminating Macro"
x = "False"

End If
End If
End If
End If
Wend

End Sub