Copying macro

[Eliniara]

Hey! I am building a worksheet that can be used as a transaction tracker. I have hit a stump trying to have the numbers copy to a new sheet. I would like to create a button that when hit will copy certain cell totals to sheet 3 from sheet 1 onto a new row then clear the totals. I am not sure if this is possible in one macro but this is what I have to copy the totals and to reset them to zero but it doesn't keep the numbers when they are changed.

Worksheets("Sheet1").Range("B2:B9") = 0 (to zero the totals)

Sub CommandButton1_click()
Sheets("Sheet1").Range("A2").Select
ActiveCell.EntireRow.Insert Shift:=xlDown (To insert new row at top of chart)
Sheets("Sheet1").Range("A1:D1").Select
Selection.Borders.Weight = xlThin
End Sub


Sub CopyStuff()
Range("D10").Copy
Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
(To copy the totals to sheet 3)

My issue is trying to put them all together without getting an error. Any help would be greatly appreciated!
Thanks!