Subtotals fill blanks

Hi Justine

Thankyou for your qusetion

The following code will go through each cell in the current region and if the cell is empty will set its value equal to the cells above it

Sub FillBlanks()



    Dim intRowcount As Integer

    Dim intColumnCount As Integer



    For intRowcount = 2 To Range("A1").CurrentRegion.Rows.Count

    

    

    

        For intColumnCount = 1 To Range("A1").CurrentRegion.Columns.Count

    

            If Cells(intRowcount, intColumnCount) = "" Then

            

                Cells(intRowcount, intColumnCount) = Cells(intRowcount - 1, intColumnCount)

                        

            End If

    

    

    

        Next intColumnCount

    

    

    

    Next intRowcount







End Sub