Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Kode Agent'[All]", _
xlLabelOnly, True
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "'Kode SO'[All]", _
xlLabelOnly, True
Application.CutCopyMode = False
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "PRODUCT[All]", xlLabelOnly _
, True
Application.CutCopyMode = False
Selection.copy
Sheets("1.FYC+SYC FINANCING").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "'Kode Agent'[All]", _
xlLabelOnly, True
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "'Kode SO'[All]", _
xlLabelOnly, True
Application.CutCopyMode = False
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PIVOT Agent Financing").Select
ActiveSheet.PivotTables("PivotTable2").PivotSelect "PRODUCT[All]", xlLabelOnly _
, True
Application.CutCopyMode = False
Selection.copy
Sheets("2.RNC+TU FINANCING").Select
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Control").Select
End Sub
Bookmarks