Sub Кнопка1_Щелчок()
Dim sha As Shape
Set sha = Sheets("Лист1").Shapes("Button 1")
   Range("A1") = sha.TopLeftCell.Cells.Address _
   
   Call FFF
  End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Value1 As Variant
Static Value2 As Variant

Value1 = [кол_зим_мес].Value

If Value1 <> Value2 Then
Application.EnableEvents = False
[кол_зим_мес].Copy
[Р_кол_зим_мес].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Application.EnableEvents = True
End Sub

 Sub Макрос4()
'
' Макрос4 Макрос
'

'
    Application.Goto Reference:="БВ_Организац_1"
    Selection.Copy
       Range("A81").Select 'тут имелось ввиду перейти на последнюю ячейку выделенного диапазона в 1 столбце
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False 'копировать на новые вставленные строки
    ActiveWorkbook.Names.Add Name:="БВ_Организац_2", RefersToR1C1:= _
        "=Вводные!R81:R115" 'тут не так работает, хотел новые вставленные строки переименовать путем удаления последнего символа и замены на следующий не используемый в схожих названиях диапазона
    ActiveWorkbook.Names("БВ_Организац_2").Comment = _
        "Блок вводных Организация (макрос)"
    Sheets("Смета").Select ' вопросы те же
    Application.Goto Reference:="БС_Организац_1"
    Selection.Copy
    Selection.End(xlDown).Select
    Range("A154").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    ActiveWorkbook.Names.Add Name:="БС_Организац_2", RefersToR1C1:= _
        "=Смета!R154:R277"
    ActiveWorkbook.Names("БС_Организац_2").Comment = _
        "Сметный блок организация (макрос)"
    Sheets("Вводные").Select
       Range("F83").Select
    ActiveCell.FormulaR1C1 = "ОРГ_2" 'тут хотел в новом созданном диапазоне [БВ_организац_2]
    ' изменить значение в 3й строке 6м столбце путем удаления последнего символа и замены на последний символ только что созданного диапазона
    
    'Далее хотел выбрать новые диапазоны и заменить внутри всех формул упоминания [БС_Организац_1] и [БВ_Организац_1] на новые соответствующие новым названиям диапазонов
End Sub