Unter foldendem Link habe ich mein Problem in ein Excel-File geschrieben.
Habe mal ein wenig selber mit VBA herumgepröbelt aber leider fehlt mir noch die nötige Know-How um dies selbständig zu erledigen.
https://www.herber.de/bbs/user/16817.xls
Sub Aufaddieren()
Dim i As Integer
For i = 1 To 255
If Application.WorksheetFunction.Sum(Columns(i)) > 0 Then
Cells(Cells(65536, i).End(xlUp).Row + 1, i).Value = _
Application.WorksheetFunction.Sum(Columns(i))
End If
Next
End Sub