Q:

Creating a button in excel to clear a field of data and save one previous row elsewhere in the document

I am new to this forum and just starting to learn programming. I had a question that hopefully will be useful to others as well. I have data saved in two columns and 30 rows that ends with a summation of each column at the bottom. 
What I would like to do is create a VB program that saves the Sum, moves that value to a new row, and then clears all of the previous data so that it can be re-entered and again saved in a new location. 
This program will be used to track emissions of vapor from a storage tank, monthly and as the data is entered each month I was hoping it could be saved specific to that month and then cleared and ready to enter the data into the next month. Thank you for any help or ideas you could provide. 
This is the code I have come up with thus far, 
Sub Macro4()
    Range("F15").Select
    ActiveWindow.SmallScroll Down:=15
    Range("C30:D30").Select
    Selection.Copy
    Range("C33").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("C33").Select
End Sub

Sub Button2_Click()
    ActiveWindow.SmallScroll Down:=18
    Range("C30:D30").Select
    Selection.Copy
    Range("C33").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C28:D29").Select
    Range("D29").Activate
    Application.CutCopyMode = False
    Range("C2:D29").Select
    Range("D29").Activate
    Selection.ClearContents
End Sub

A:

Something like this should work (adjust ranges to suit)
Sub Button2_Click()
    Dim rngDest as Range

    With ActiveSheet
       'find next empty row
        Set rngDest= .cells(rows.count,3).end(xlup).offset(1,0)

        'copy values
        rngDest.resize(1,2).value= .Range("C30:D30").Value    

        'clear input range
         .Range("C28:D29").ClearContents
    End With
End Sub

