1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables («PivotTable1») .ChangeConnection ActiveWorkbook.Connections (ряд («B5»). Значение) Подводная лодка конца