Fill in between cells with non linear values

[Jamesera27]

I'm using excel 2011 on a Mac Air running Yosemite
I would like to have a column of numbers in no particular order with various blank cells in the column. Blanks may be 1 space or 5 spaces etc. I want to highlight the entire column and fill in all the missing numbers in between the numbers already in place (without changing those numbers). It is like using the FILL tool but highlight the entire column. On a windows computer running excel i used an addin called Kutools which did exactly that but i can't find Kutools for Mac. Not sure if it's a formula or VBA that i need. Any Help is Appreciated, Thanks,Jim

[MarvinP]

Hi James,

Which one of the Kutools did you use? See list at:
http://www.extendoffice.com/product/...for-excel.html

Then what did it fill those blank cells with?

[Jamesera27]

Kutools for excel it filled in the numbers in the blank cells making all numbers distribute evenly
Here is a link to see exactly what I'm trying to explain. First it shows the standard Linear fill in excel, then shows the Linear fill in kutools for excel
http://www.extendoffice.com/document...ar-values.html

[MarvinP]

The only way I can imagine doing this is with VBA. Will you accept that kind of answer?

[Jamesera27]

Absolutely. I have way too many numbers to do this manually. VBA is fine.

[MarvinP]

OK James,

Here is the code and an example file. Give it a try.

Sub FillBlanks()
    Dim Col As Double
    Dim StartRow As Double
    Dim EndRow As Double
    Dim SpanRows As Double
    Dim StartVal As Double
    Dim EndVal As Double
    Dim StepVal As Double
    
    Col = ActiveCell.Column
    
Do Until ActiveCell.Row = Rows.Count
    Cells(1, Col).Select
    Cells(ActiveCell.Row, Col).End(xlDown).Select
    StartRow = ActiveCell.Row
    StartVal = ActiveCell.Value
    Cells(ActiveCell.Row, Col).End(xlDown).Select
    EndRow = ActiveCell.Row
    
    If EndRow = Rows.Count Then GoTo Done
    
        EndVal = ActiveCell.Value
        SpanRows = EndRow = StartRow
        StepVal = (EndVal - StartVal) / (EndRow - StartRow)
        If EndRow - StartRow > 1 Then
            Cells(StartRow + 1, Col).Select
            Do Until ActiveCell <> ""
                ActiveCell.Value = Cells(ActiveCell.Row - 1, Col) + StepVal
                Cells(ActiveCell.Row + 1, Col).Select
            Loop
        End If
Loop
Done:
Cells(1, Col).Select
End Sub

[Jamesera27]

Thanks a lot MarvinP. You saved me a lot of time with that code. It works exactly like i needed it to. Thanks Again, Jim