Sub addiereZellen()
    Dim aktuelleZeile As Long
    Dim letzteBesetzteSpalte As Long
    Dim summe As Double

    aktuelleZeile = 1
    letzteBesetzteSpalte = 1
    Do While Not IsEmpty(Cells(aktuelleZeile, 1))
        summe = summe + Cells(aktuelleZeile, 1).Value
        aktuelleZeile = aktuelleZeile + 1
    Loop
    Cells(aktuelleZeile, 1).Value = summe
    Cells(aktuelleZeile, 1).Font.Bold = True

End Sub