Sub Refsh_Pvt()
'
' Refsh_Pvt Macro
'
'Grab Pivot Table Info
Sheets("Reject Data").Select
Range("U9:W133").Select
Selection.Copy
'Paste into N8
Range("N8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Filter Data
Range("N8:P65").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Worksheets("Reject Data").AutoFilter.Sort.SortFields.Add2 Key _
:=Range("N8:P165"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Reject Data").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Select N4
Range("N4").Select
End Sub
'
' Refsh_Pvt Macro
'
'Grab Pivot Table Info
Sheets("Reject Data").Select
Range("U9:W133").Select
Selection.Copy
'Paste into N8
Range("N8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Filter Data
Range("N8:P65").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWorkbook.Worksheets("Reject Data").AutoFilter.Sort.SortFields.Add2 Key _
:=Range("N8:P165"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Reject Data").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Select N4
Range("N4").Select
End Sub