VBA sum pairs of cells from dynamic input list

[Probe]

Dear Experts, I am trying to generate a code to sum pairs in the input block. The input data B5:B11 thru to F5:F11 is dynamic with some blank cells before (B1:B4) - after the input block, B12:B13. I manually generated a computed block B13:B34 to F14:F34 right under the input block for clarity, though it can be computed block can be plotted anywhere in the same sheet or copied to another sheet. The problem I have is that dynamic input block B5:B11 F5:F11 can be a lot longer than 7 raws, therefore without vba it requires manipulations with formula everytime when block gets longer. Would appreciate your inputs how to tackle this challenge
B14 = B5+B6,
B15 = B5+B7,
B16= B5 + B8
...
B20= B6 + B7
B21 = B6 + B8
...
B25 = B7 + B8
B26 = B7 + B9
...

 

[myall_blues]

Something like this perhaps? Changing the value of startRow and startCol will change where the output goes to.

Sub Probe()
    Dim numBlock As Variant
    Dim i As Long, j As Long, k As Long
    Dim cRow As Long, startRow As Long, startCol As Long
    startRow = 14
    startCol = 9
    cRow = startRow
    numBlock = Range("B5").CurrentRegion
    k = 0
    Do While k < UBound(numBlock, 2)
        k = k + 1
           For i = LBound(numBlock, 1) To UBound(numBlock, 1) - 1
            For j = i + 1 To UBound(numBlock, 1)
                    Cells(cRow, startCol) = numBlock(i, k) + numBlock(j, k)
                    cRow = cRow + 1
            Next j
       Next i
       startCol = startCol + 1
       cRow = startRow
    Loop
End Sub

 

[Probe]

Something like this perhaps? Changing the value of startRow and startCol will change where the output goes to.

Sub Probe()
    Dim numBlock As Variant
    Dim i As Long, j As Long, k As Long
    Dim cRow As Long, startRow As Long, startCol As Long
    startRow = 14
    startCol = 9
    cRow = startRow
    numBlock = Range("B5").CurrentRegion
    k = 0
    Do While k < UBound(numBlock, 2)
        k = k + 1
           For i = LBound(numBlock, 1) To UBound(numBlock, 1) - 1
            For j = i + 1 To UBound(numBlock, 1)
                    Cells(cRow, startCol) = numBlock(i, k) + numBlock(j, k)
                    cRow = cRow + 1
            Next j
       Next i
       startCol = startCol + 1
       cRow = startRow
    Loop
End Sub

THIS IS GOLD! appreciate your time, myall_blues

 

[myall_blues]

You’re welcome. Thanks for the feedback.