Why is this program, which should sum each column, stopping after only one column? [Excel VBA]
===

This program creates a table of numbers, and then attempts to sum it up, row by row. I'm using `IsBlank()` to test if the topmost cell is blank. If it is blank, it should end the loop, but if it isn't, the loop should keep going. However, it keeps ending after the first time through the loop. Why is that?

I have a feeling it's really obvious.

    
    Option Explicit
    Dim Counter As Long
    Dim i As Long
    Dim col As Long
    Dim row As Long
    
    Sub SumRange()
        For col = 1 To 8
            For row = 1 To 6
                Cells(row, col) = Rnd
            Next row
        Next col
        Counter = 6
        For i = 1 To 9
            If IsEmpty(Cells(1, i)) = False Then
                Cells(Counter + 1, i) = Application.WorksheetFunction.Sum(Range(Cells(1, i), Cells(Counter, i)))
            Else
                End If
            End
        Next
        MsgBox Cells(4, 5)
    End Sub
