Can anyone help rewrite this code to prevent Excel jumping to the worksheet: ZMROSALES MAP?
Sub CopyAppend()
Dim oldWS As Worksheet
Set oldWS = ActiveSheet
Application.ScreenUpdating = False
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
oldWS.Activate
End Sub
Sub CopyAppend()
Dim oldWS As Worksheet
Set oldWS = ActiveSheet
Application.ScreenUpdating = False
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
oldWS.Activate
End Sub