Copy and Append pivot table range

[mssbass]

Right now I have a pivot table where I have 4 modules that select each column of the pivot and append to a specific column in another worksheet. Is there a way I can do this in 1 module?

Sub CopyAppend()

Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))

ActiveSheet.PivotTables("PivotTodaysOpenHolds2").PivotSelect "Notification[All]", _
xlLabelOnly, True
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("b3"))

Selection.End(xlDown).Select

intNewRow = Application.ActiveCell.Row + 1
strNewCell = "b" & intNewRow
Application.Range(strNewCell).Activate

ActiveSheet.Paste



End Sub

Sub CopyAppend2()

Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))

ActiveSheet.PivotTables("PivotTodaysOpenHolds2").PivotSelect "Hold Code[All]", _
xlLabelOnly, True
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("c3"))

Selection.End(xlDown).Select

intNewRow = Application.ActiveCell.Row + 1
strNewCell = "c" & intNewRow
Application.Range(strNewCell).Activate

ActiveSheet.Paste



End Sub
Sub CopyAppend3()

Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))

ActiveSheet.PivotTables("PivotTodaysOpenHolds2").PivotSelect "Hold Text[All]", _
xlLabelOnly, True
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("f3"))

Selection.End(xlDown).Select

intNewRow = Application.ActiveCell.Row + 1
strNewCell = "f" & intNewRow
Application.Range(strNewCell).Activate

ActiveSheet.Paste



End Sub

Sub CopyAppend4()

Application.Goto (ActiveWorkbook.Sheets("ZMROSALES MAP").Range("a1"))
Worksheets("ZMROSALES MAP").PivotTables("PivotTodaysOpenHolds2").PivotFields("Max of Create Date").DataRange.Select




Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("NotifTasks").Range("j3"))

Selection.End(xlDown).Select

intNewRow = Application.ActiveCell.Row + 1
strNewCell = "j" & intNewRow
Application.Range(strNewCell).Activate

ActiveSheet.Paste



End Sub

 

[mssbass]

I want to make sure the module doesn't force the code to show that page while it's running also. Screenupdating = false