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