ошибка в коде

[johny_03]

имеется кнопка с нормально работающим кодом:

Private Sub CommandButton1_Click()

R_Count = Sheets(2).Range("A65000").End(xlUp).Rows.Row

R_Live = Sheets(2).Range("A2:A" & R_Count)
 R_Count = Sheets(1).Range("A65000").End(xlUp).Rows.Row
 
 DDT = Sheets(1).Range("B1:B" & R_Count)
 
 For n = R_Count To 2 Step -1
 
 For m = 1 To UBound(R_Live)
 hh = LTrim(DDT(n, 1))
 If InStr(1, LTrim(DDT(n, 1)), R_Live(m, 1), vbTextCompare) = 1 Then GoTo 111

 Next
  Sheets(1).Rows(n).Delete
111
 Next
  
End Sub

Когда я добавляю код следующего содержания:

Sheets("Лист2").Select           ' выводит сумму столбца С листа1
    Range("F15").Select
    Selection.Font.ColorIndex = 3
    ActiveCell.FormulaR1C1 = "=SUM(Лист1!R[-11]C[-1]:R[65000]C[-1])"
    Sheets("Лист2").Select
    Range("E15").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "Выторг"
    Selection.Font.ColorIndex = 0

то у меня идет неправильный подсчет (первый код не так работает, как надо). Скорее всего дело в цикле первого кода. Подскажите, как мне можно привязать второй код к первому на одну кнопку.
Заранее спасибо!

[kuklp]

Ну никто же не мешает Вам предпоследней строкой вставить:

...
  Sheets(1).Rows(n).Delete
111
 Next
call MySub  
End Sub
sub MySub
    [F15].Font.ColorIndex = 3
    [F15].FormulaR1C1 = "=SUM(Лист1!R[-11]C[-1]:R[65000]C[-1])"
with Sheets("Лист2").[E15].
   .Font.Bold = True
   .value = "Выторг"
   .Font.ColorIndex = 0
end with
end sub

Дальше все будет зависеть только от правильности Вашей формулы.

[kuklp]

Поскольку Вашего файла нет, заочно попробовал усовершенствовать Ваш код:

Sub CommandButton1_Click()
    DDT = Sheets(1).Range("B1:B" & Sheets(1).[A65000].End(xlUp).Row)
    For n = Sheets(1).[A65000].End(xlUp).Rows.Row To 2 Step -1
        R_Live = Sheets(2).Range("A2:A" & Sheets(2).[A65000].End(xlUp).Row)
        For m = 1 To UBound(R_Live)
            If InStr(1, LTrim(DDT(n, 1)), Sheets(2).Range("A2:A" & Sheets(2).[A65000].End(xlUp).Row)(m, 1), vbTextCompare) = 1 Then: _
        Exit For: Else: Sheets(1).Rows(n).Delete: Exit For
        Next: Next: Call MySub
End Sub

Sub MySub()
    With Sheets(1).[F15]: .Font.ColorIndex = 3: .FormulaR1C1 = "=SUM(Лист1!R[-11]C[-1]:R[65000]C[-1])": End With
    With Sheets(2).[E15]: .Font.Bold = True: .Value = "Выторг": .Font.ColorIndex = 0: End With
End Sub

[johny_03]

Большое спасибо!