Reset Value in cells to 0 after clicking the command button

I add a value to cells L4,L5,L9,L10,L11,L12,L13,L14,L15
I have a Comand button, when pushed it sends data to another work sheet in the same workbook. After I push the command button I would like the value in the cells listed above to return to 0. What can I do to the code listed below to make this happen?

Sub TwoDrawerBank()
'
' TwoDrawerBank Macro
' Move Data To Total Sheets
'
    ActiveWindow.SmallScroll Down:=42
    Range("AE111:AN112").Select
    Selection.Copy
    Sheets("Hardware Total").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("AE97:AN105").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Plam Total").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(2, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-27
    Range("AE76:AN90").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Wood Total").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(18, 10).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("V62").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("V65").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("V66").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("V67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Data Entry").Select
    Range("V61").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("H1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Data Entry").Select
    ActiveWindow.SmallScroll ToRight:=-19
    ActiveWindow.SmallScroll Down:=-72
    Range("AG61").Select
    Application.CutCopyMode = False
End Sub

Moderators Note: Please follow Forum Rule #3 and use code tags. Added this time, but please use them in the future…Thanks.