Sub CopyNameRange() Лист6.Range("Диапазон2") = Лист6.Range("Диапазон").value 'копирование из диапазона в диапазон Лист6.Range("A1:A5").Name = "Привет" 'создание имени диапазона Лист6.Range("Диапазон").Copy 'копирование диапазона в в ячейку к30 Лист6.Range("K30").Select Лист6.Paste End Sub