Sub Макрос()
Dim R
For Each R In Range("A1:A10000")
    If Mid(R.Value, 1, 4) = "http" Then ActiveSheet.Hyperlinks.Add Anchor:=R, Address:=R.Value, TextToDisplay:=R.Value
Next
End Sub

Sub New_rows()
Application.ScreenUpdating = False 'Больше не обновляем страницы после каждого действия
Application.Calculation = xlCalculationManual 'Расчёты переводим в ручной режим
Application.EnableEvents = False 'Отключаем события
Dim i%, ii%
For i = Cells(Rows.Count, 2).End(xlUp).Row To 10 Step -1
    
    If Cells(i, 2).Value <> "" And Cells(i, 2).MergeCells = False Then
        Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Rows(i + 1 & ":" & i + 1).Copy
        Rows(i & ":" & i).PasteSpecial Paste:=xlPasteFormats
        For ii = 1 To 5
            Range(Cells(i, ii), Cells(i + 1, ii)).MergeCells = True
        Next ii
        Cells(i, 6).Value = "план"
        Cells(i, 9).Value = "то"
        Cells(i + 1, 6).Value = "выполн"
    End If
Next i
Application.ScreenUpdating = True 'Включаем обновление экрана после каждого события
Application.Calculation = xlCalculationAutomatic 'Расчёты формул - снова в автоматическом режиме
Application.EnableEvents = True 'Включаем события
End Sub

=ЕСЛИ(И(D$1>=ПСТР($C2;1;НАЙТИ("-";$C2)-1)*1;D$1<ЕСЛИ(ПСТР($C2;1;НАЙТИ("-";$C2)-1)*1>ПСТР($C2;НАЙТИ("-";$C2)+1;10)*1;ПСТР($C2;НАЙТИ("-";$C2)+1;10)*1+23;ПСТР($C2;НАЙТИ("-";$C2)+1;10)*1));1;0)

=ЕСЛИ(СУММПРОИЗВ((Таблица1[[#Эта строка];[1]:[7]]="Катя")*1)>0;"Катя присутствует";"Только Насти")

Sub test2()
    Dim Ch, i%, firstRow%, iInt()
    firstRow = 11
    Const firstColumn = 6
    
    Ch = Selection.Value
    If Not IsNumeric(Ch) Or Len(Ch) < 1 Then
        MsgBox "Не бывает такого количества квартир": Exit Sub
    Else
        If Ch <> Fix(Ch) Then MsgBox "Не бывает такого количества квартир": Exit Sub
    End If
    
    ReDim iInt(1 To Ch, 1 To 1)
    
    For i = 1 To Ch
        iInt(i, 1) = i
    Next i
    
    Range(Cells(firstRow, firstColumn), Cells(Cells(Rows.Count, firstColumn).End(xlUp).Row, firstColumn)).ClearContents
    Range(Cells(firstRow, firstColumn), Cells(firstRow + Ch - 1, firstColumn)).Value = iInt
    
End Sub

Private Sub TextBox1_Change()
Call Mat
End Sub
Private Sub TextBox2_Change()
Call Mat
End Sub
Private Sub TextBox3_Change()
Call Mat
End Sub

Private Sub Mat()
Dim a@, b@, c@
If IsNumeric(TextBox1.Text) Then a = TextBox1.Text 
If IsNumeric(TextBox2.Text) Then b = TextBox2.Text 
If IsNumeric(TextBox3.Text) Then c = TextBox3.Text 
TextBox4.Text = a + b - c
End Sub

' Задаём источник и начальный тип диаграммы
If Y2step >= Y1step * 3 Then 'проверка на необходимость разделителя
  Set dsource = [X_1,Y_11,E6:E13]
  Set Y = [Y_11]
Else
  Set dsource = [X_1,Y_1,E6:E13]
  Set Y = [Y_1]
'  Set dsource = [X_1,Y_1]
'  Set Y = [Y_1]
  Y1max = Y2max
  Y1step = WF.Round(Y2_rnd / 10, Precision + 1) 'Y2step
  Y1form = Y2iFormat
End If

  Set WF = WorksheetFunction
  Y1iFormat = Len(Mid([e26] - Fix([e26]), 3))
  Y2iFormat = Len(Mid([e27] - Fix([e27]), 3))
  
  If [e26] < 10 Then Y1iFormat = "0." & Right(10 ^ [e28], Y1iFormat) Else Y1iFormat = 0
  If [e27] < 10 Then Y2iFormat = "0." & Right(10 ^ [e28], Y2iFormat) Else Y2iFormat = 0
  
  Y1min = 0:                                    Y2min = -[C27]
  Y1max = [C26] * 2:                            Y2max = [C27]
  Y1form = "[=0]" & Y1iFormat & ";[<=" & _
           [C26] & "]" & Y1iFormat & ";"
                                                Y2form = Y2iFormat & ";;"
  Y1step = [e26]:                               Y2step = [e27]