Macro To Paste "Values Only" into next blank row of ANY active sheet

[christechgeek]

I work at an auto dealership and I have a worksheet that lists open (not funded) contracts and this list will be updated daily throughout the month. I have a droplist with 2 options that can be selected once a contract is either "Booked" or "Funded". Periodically someone will sort the "Funded" contracts and copy these to a sheet named the month they were sold in. There will be sheets for each month January through December.
There could probably be an automated solution to this that once a contract is marked as "Funded" that it automatically moves to the appropriate month's sheet and deletes from the primary (Current Month) sheet. (If someone could help me figure that out, it would great!)

But what I'm actually trying to do here is just to have a macro that once someone copies the funded contracts and they go to the appropriate month's tab, that I have a button tied to a macro that will paste values only into the next available empty row.
I have played with a few different ways of doing this and haven't found my perfect solution. Can someone help?

Thanks in advance.

 

[christechgeek]

I finally came up with this that seems to work:

Sub PasteValuesOnly()
'
' PasteValuesOnly Macro
'

    ActiveSheet.Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

But if anyone has any suggestions to automate this so that it automatically cuts and pastes information when "Funded" is selected it would be greatly appreciated!