Private Sub ДругойУровень_Click()
    On Error Resume Next
    Application.ScreenUpdating = False
    Dim ТаблицаСопротивлений(1 To 2, 1 To 10) As Variant
    Dim n, i, w, a, q, s, z, g, p, y As Integer
    Dim x, d, c As String
        q = Interaction.InputBox("Введите количество рассчитываемых линий")
        If q = "" Then
            Exit Sub
        End If
        Worksheets("макрос").Cells(3, 5).Value = q
'Отстройка от предыдущей строки
    For i = 73 To э
        x = Sheets("расчет").Cells(i, 11)
        If x = "ОСТАЛЬНЫЕ ЭЛЕМЕНТЫ СОПТ" Then
            y = i + 5
'зачистка полей перед вставкой
            For n = 2 To ъ Step 2
                Cells(y - 1, n).Clear
                For s = y + 1 To y + 10
                    Cells(s, n).Clear
                Next
            Next
            ...
Exit For
    End If
    Next
    Application.ScreenUpdating = True
    MsgBox "таблицы построены"
End Sub