Copy and Paste Range with Objects

Hi All, I'm trying to set up VB to copy Range with Objects but am unable to get any objects copied to a new worksheet. Hoping someone can guide me in the right direction. Here is the VB code that I'm currently using:

Private Sub AutomationSelect_Click()
Application.ScreenUpdating = False

Dim i As Long
Range("AutomationForm").Copy

For i = 1 To AutomationQty.Value
    Range("a" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll
Next i
Application.CutCopyMode = False
End Sub

Thank you in advance for your help!