Sub кс()
Dim book1 As Workbook
Dim book2 As Workbook

Dim VBAEditor As VBIDE.VBE
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim ReplaceWhat As String
Dim t As Long, i As Long, m As Long, n As Long

Set book2 = Workbooks.Open(".......")
    For t = 2 To 369
        i = book2.Worksheets(1).Cells(t, 1).Value
        m = book2.Worksheets(1).Cells(t, 2).Value
        n = book2.Worksheets(1).Cells(t, 3).Value
        
        If n > 110 Then
        GoTo Label1
        End If
        
        Set VBAEditor = Application.VBE
        Set book1 = Workbooks.Open("......")
        Set VBProj = book1.VBProject
        Set VBComp = VBProj.VBComponents("Module1")
        Set CodeMod = VBComp.CodeModule
        
        ReplaceWhat = "If (C.Offset(0, -3).Value = ЛОЖЬ Or C.Offset(0, 1).Value = 0 Or C.Offset(0, -7).Value <> ЛОЖЬ Or C.Offset(0, -8).Value <> ЛОЖЬ) And k = -2 Then"
        CodeMod.ReplaceLine m, ReplaceWhat
            
        Application.Calculate
        book1.Save
        book1.Close
        
        Set VBAEditor = Nothing
        Set VBProj = Nothing
        Set VBComp = Nothing
        Set CodeMod = Nothing
Label1:
    Next t
book2.Save
book2.Close
End Sub

 C.Offset(0, 1).Value = 0

 C.Offset(0, 28).Value = 5

Mid (stringvar, start, [length]) = string