Correccion en código para filtra td

Expertos me encuentro con una problemática con un código ya que estoy tratando de filtrar varios valores (15 SKU´s) en una tabla dinámica de una BD en access la cual llega a tener has 150 SKU´s tengo el código ya generado pero veo que tarda algo de tiempo y quisiera saber si hay alguna manera de reducir el tiempo en que filtra dichos valores

 With ActiveSheet.PivotTables("TablaDinámica14").PivotFields("SKU")

.PivotItems("1005").Visible = False
.PivotItems("10054").Visible = False
.PivotItems("10055").Visible = False
.PivotItems("10056").Visible = False
.PivotItems("10057").Visible = False
.PivotItems("10076").Visible = False
.PivotItems("1014").Visible = False
.PivotItems("10682").Visible = False
.PivotItems("10830").Visible = False
.PivotItems("11024").Visible = False
.PivotItems("11036").Visible = False
.PivotItems("1129").Visible = False
.PivotItems("1131").Visible = False
.PivotItems("1132").Visible = False
.PivotItems("1133").Visible = False
.PivotItems("1135").Visible = False
.PivotItems("1136").Visible = False
.PivotItems("1137").Visible = False
.PivotItems("11490").Visible = False
.PivotItems("11491").Visible = False
.PivotItems("11523").Visible = False
.PivotItems("11524").Visible = False
.PivotItems("1200").Visible = False
.PivotItems("1207").Visible = False
.PivotItems("121").Visible = False
.PivotItems("1215").Visible = False
.PivotItems("1219").Visible = False
.PivotItems("122").Visible = False
.PivotItems("1221").Visible = False
.PivotItems("12237").Visible = False
.PivotItems("12339").Visible = False
.PivotItems("12340").Visible = False
.PivotItems("12341").Visible = False
.PivotItems("12403").Visible = False
.PivotItems("1247").Visible = False
.PivotItems("1265").Visible = False
.PivotItems("1266").Visible = False
.PivotItems("1267").Visible = False
.PivotItems("12741").Visible = False
.PivotItems("12742").Visible = False
.PivotItems("12743").Visible = False
.PivotItems("12744").Visible = False
.PivotItems("12745").Visible = False
.PivotItems("12746").Visible = False
.PivotItems("1300").Visible = False
.PivotItems("1301").Visible = False
.PivotItems("1302").Visible = False
.PivotItems("13455").Visible = False
.PivotItems("13508").Visible = False
.PivotItems("13538").Visible = False
.PivotItems("13539").Visible = False
.PivotItems("13541").Visible = False
.PivotItems("13842").Visible = False
.PivotItems("13843").Visible = False
.PivotItems("13845").Visible = False
.PivotItems("13855").Visible = False
.PivotItems("13867").Visible = False
.PivotItems("14737").Visible = False
.PivotItems("15826").Visible = False
.PivotItems("15827").Visible = False
.PivotItems("16211").Visible = False
.PivotItems("16217").Visible = False
.PivotItems("16452").Visible = False
.PivotItems("16454").Visible = False
.PivotItems("16593").Visible = False
.PivotItems("17157").Visible = False
.PivotItems("17267").Visible = False
.PivotItems("17268").Visible = False
.PivotItems("17270").Visible = False
.PivotItems("17605").Visible = False
.PivotItems("18288").Visible = False
.PivotItems("18289").Visible = False
.PivotItems("18290").Visible = False
.PivotItems("18291").Visible = False
.PivotItems("18758").Visible = False
.PivotItems("18759").Visible = False
.PivotItems("18760").Visible = False
.PivotItems("18761").Visible = False
.PivotItems("19282").Visible = False
.PivotItems("19283").Visible = False
.PivotItems("19284").Visible = False
.PivotItems("19286").Visible = False
.PivotItems("19287").Visible = False
.PivotItems("19293").Visible = False
.PivotItems("19397").Visible = False
.PivotItems("19398").Visible = False
.PivotItems("19599").Visible = False
.PivotItems("20156").Visible = False
.PivotItems("20157").Visible = False
.PivotItems("20158").Visible = False
.PivotItems("20159").Visible = False
.PivotItems("20160").Visible = False
.PivotItems("20163").Visible = False
.PivotItems("20164").Visible = False
.PivotItems("20166").Visible = False
.PivotItems("20167").Visible = False
.PivotItems("20168").Visible = False
.PivotItems("20352").Visible = False
.PivotItems("20378").Visible = False
.PivotItems("20379").Visible = False
.PivotItems("20380").Visible = False
.PivotItems("20381").Visible = False
.PivotItems("20382").Visible = False
.PivotItems("20383").Visible = False
.PivotItems("20384").Visible = False
.PivotItems("20385").Visible = False
.PivotItems("20401").Visible = False
.PivotItems("20450").Visible = False
.PivotItems("20451").Visible = False
.PivotItems("20552").Visible = False
.PivotItems("20553").Visible = False
.PivotItems("20554").Visible = False
.PivotItems("20556").Visible = False
.PivotItems("20565").Visible = False
.PivotItems("20566").Visible = False
.PivotItems("20567").Visible = False
.PivotItems("21095").Visible = False
.PivotItems("21096").Visible = False
.PivotItems("21235").Visible = False
.PivotItems("21236").Visible = False
.PivotItems("21348").Visible = False
.PivotItems("21435").Visible = False
.PivotItems("21440").Visible = False
.PivotItems("21441").Visible = False
.PivotItems("21442").Visible = False
.PivotItems("21534").Visible = False
.PivotItems("21535").Visible = False
End With