Last but not the least. Can you help me out to create a slicer for each of the filter in pivot table instead creating a code for individual filter.

Basically i want to replace the below code with a loop for each of the pivotfield.

Set SLCR = ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables("10A"), "Type") _
.Slicers.Add(ActiveSheet, , "Type", "Type", 139.5, 648, 144, 198.75)