VBA to copy, paste and add to existing data

I have this code that copies and pastes from one part of a spreadsheet to another. I need to modify it so that it does not over-write the information where it pastes to, but rather adds the new information to the lines below the data that is already there.
Can anyone help me with this?

Private Sub PlaceData_Click()
Range("A7:C23").Select
Selection.Copy
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A7:A23,C7:C23").Select
Range("C7").Activate
Selection.ClearContents
Range("A2").Select
End Sub