Filling Empty Cells with Data based on Averages

[Sully1440]

Hi All,
I'm looking for some help adding numbers to a very large data set. I have numbers in column C intermittently. I want to do the following:
1.) If a number is in Column C, count the number of empty cells below it (but only up to the next number)...ie. C17,....C27 are empty cells, so the count would be 11
2.) Divide this count (i.e. 11) by the number above the empty cells (i.e C16 = 9; therefore 9/11 = 0.818
3.) Fill the empty cells below it with this average but only the empty cells (i.e. 0.818)
4.) Continue with the next number to the end of the data set

That's it. Sample data attached.

Any help would be appreciated.
Jim

[Paul_Hossler]

Something like this

Option Explicit

Sub Numbers()

    Dim rData As Range, rArea As Range, rAbove As Range
    Set rData = ActiveSheet.Cells(1, 1).CurrentRegion.Columns(3).SpecialCells(xlCellTypeBlanks)
    
    For Each rArea In rData.Areas
        With rArea
            Set rAbove = .Cells(1, 1).End(xlUp)
            rArea.Value = rAbove.Value / rArea.Cells.Count
        End With
    Next

End Sub

[Sully1440]

Works Perfectly. Thank you Paul