Well, here it is, tell me what you think:

Sub Sums()

Dim NextRow As Variant, X As Integer, Y As Integer, Sum As Integer, Bits As Integer

NextRow = Array(5, 5, 5, 5, 5, 5, 5, 5)

For X = 1 To 255

Sum = 0

Bits = 0

For Y = 0 To 7

If X And 2 ^ Y Then

Sum = Sum + Me.Cells(1, Y + 1)

Bits = Bits + 1

End If

Next Y

Me.Cells(NextRow(Bits - 1), Bits).Value = Sum

NextRow(Bits - 1) = NextRow(Bits - 1) + 1

Next X

End Sub