Copying Print Range From One Workbook To Another Workbook.

I have created a macro that copys pivot table from one Workbook to new workbook. Problems I am encountering are print selecting from source workbook are not copied to new workbook.

Dim AmountofColumns As Long, AmountofRows As Long
Dim ColumnCount As Long, RowCount As Long
Dim ThisWorkbookName As String, ActiveWorkbookName As String, ActiveSheetName As String
Public Sub CreateGroups()
Application. ScreenUpdating = False
Sheets("Preferences").Select
ThisWorkbookName = ActiveWorkbook. Name
AmountofColumns = Range("A1").End(xlToRight).Column

For ColumnCount = 2 To AmountofColumns......................