Continuando com a resolução dos meus primeiros exercícios em Vba aqui fica mais um:

Elabore um algoritmo que permita Somar  5 Células na Horizontal e na Vertical a Partir da Célula Seleccionada.

Aqui fica o código que resolve o exercício:

Sub MatrixSum()
    Dim s As Double
    Dim c(1 To 5, 1 To 5) As Double
    Dim i As Integer, j As Integer

    ' guardar valores das células na matriz c()
    For j = 1 To 5 ' linha
        For i = 1 To 5 ' coluna
            c(j, i) = ActiveCell.Offset(j - 1, i - 1).Value
        Next i
    Next j

    ' somar valores
    s = 0
    For j = 1 To 5 ' linha
        For i = 1 To 5 ' coluna
            s = s + c(j, i)
        Next i
    Next j

    ' Apresentar resultado
    MsgBox s
End Sub

Não sei se a forma como implementei a resolução do exercício é a mais correcta, e por isso fico à espera de comentários, ou mesmo de correcções e dicas de melhoramento do código que apresento.