Formula help expanding table?

Thank you OliverScheurich 

I didn't actually use your response because I needed to be able to set it for a specific range. But, you confirmed my fear that i would have to create a VBA function for this.

Here is the code I ultimately used.

Function Expand(x As Range) As Variant
'formula to expand values of a column range to fill all cell
'  =Expand(A1:A20) or =Expand(A1#)
    Application.Volatile
    
    Dim RET As Variant                                      'retun table
    Dim XVal                                                'vriable to hold current num
    Dim i                                                   'counter
    
    i = 1                                                   'presetting the counter
    XVal = 0                                                'presetting the initial set value
    
    ReDim RET(1 To x.Rows.Count, 0)                         'defineing the Return array
    For i = 1 To x.Rows.Count                               'For each cell in the intial range dor the following
        If IsNumeric(x(i).Value) = True And x(i) > 0 Then       'check if the value is a number greater than 0
            XVal = x(i).Value                                       'if it is a nuber greater than zero,set the pass thru value to cell value
        End If                                                  '
        RET(i, 0) = XVal                                        'set cell value to updated pass thru value
    Next i                                                  '
    Expand = RET                                            'sends the processed information back to the excel sheet thru formula
End Function