Как можно упростить этот код в VBA?
' ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _
' "[123].[Код].[Код]").VisibleItemsList = Array( _
' "[123].[Код].&[1780]", "[123].[Код].&[2280]", _
' "[123].[Код].&[3487]", "[123].[Код].&[3248]", _
' "[123].[Код].&[165]", "[123].[Код].&[185]", _
' "[123].[Код].&[514]", "[123].[Код].&[2210]")
' ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _
' "[123].[Код].[Код]").VisibleItemsList = Array( _
' "[123].[Код].&[1780]", "[123].[Код].&[2280]", _
' "[123].[Код].&[3487]", "[123].[Код].&[3248]", _
' "[123].[Код].&[165]", "[123].[Код].&[185]", _
' "[123].[Код].&[514]", "[123].[Код].&[2210]")
