解答

Private Sub CommandButton1_Click()

　　　　Cells(5, 4) = Cells(5, 1) + Cells(5, 2) + Cells(5, 3)
　　　　Cells(6, 4) = Cells(6, 1) + Cells(6, 2) + Cells(6, 3)
　　　　Cells(7, 4) = Cells(7, 1) + Cells(7, 2) + Cells(7, 3)
　　　　Cells(8, 4) = Cells(8, 1) + Cells(8, 2) + Cells(8, 3)

End Sub