Add blank cells below pasted data from sheet to sheet using VBA-have working code, just need add row syntax

[nathanzumbaugh]

Here is what i have and it works great thanks to a great user on this site. I just need code to add a blanks cells only below the pasted range.

---
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("gencon")
Set pasteSheet = Worksheets("Summary")

copySheet.Range("d4:k4").Copy
If pasteSheet.Range("gcsum").Offset(1, 0) <> "" Then
pasteSheet.Range("gcsum").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Else
pasteSheet.Range("gcsum").Offset(1, 0).PasteSpecial xlPasteValues
End If

copySheet.Range("d4:k4").ClearContents

Application.CutCopyMode = True
Application.ScreenUpdating = True

End Sub
----

Any help would be greatly appreciated.

Thanks