Объединение макросов

[Pilot]

Процесс идет..., но считает почему-то неправильно
Sub flying1()
Dim i As Long, acontrol As Date, icounter As Long
With Sheets("ХРОНОМЕТРАЖ")
For li = 0 To 11
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 29) = "вне базы " And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Подведение итогов").Cells(51 + li, 1) _
And .Cells(i, 1) <= Sheets("Подведение итогов").Cells(51 + li, 2) Then
acontrol = .Cells(i, 1)
icounter = icounter + 1
End If
Next
Sheets("Подведение итогов").Cells(4 + li, 14) = icounter
Next li
End With
End Sub

по-старому получались значения
0
2
0
0
0
3
3
5
0
0
0
0
а после объединения
0
2
2
2
2
5
8
13
13
13
13
13

[The_Prist]

Может потому, что там у Вас обнулялись переменные? Как минимум icounter.
Сделайте так:

Sub flying1()
Dim i As Long, acontrol As Date, icounter As Long
With Sheets("ХРОНОМЕТРАЖ")
For li = 0 To 11
icounter = 0
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 29) = "вне базы " And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Подведение итогов").Cells(51 + li, 1) _
And .Cells(i, 1) <= Sheets("Подведение итогов").Cells(51 + li, 2) Then
acontrol = .Cells(i, 1)
icounter = icounter + 1
End If
Next
Sheets("Подведение итогов").Cells(4 + li, 14) = icounter
Next li
End With
End Sub

Угадал?

[Pilot]

Да, вот сейчас все ОК.

[аналитика]

всего этого можно было избежать при использовании вызова в цикле параметрической процедуры, ибо все локальные переменные умирали-бы в нужных для этого местах...