ub Проставить_Р()

Dim i As Long

'Stop

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.EnableEvents = False

i = Cells(1, Columns.Count).End(xlToRight).Column

For i = 29 To 209 Step 6

If Cells(24, i) <> "-" Then

Cells(45, i + 6 * iMonth) = "Р"

Cells(45, i + 6 * iMonth).Font.Color = -16776961

Cells(46, i + 6 * iMonth) = "Р"

Cells(46, i + 6 * iMonth).Font.Color = -16776961

Cells(51, i).Offset(, 1 - iMonth) = "Р"

Cells(51, i).Offset(, 1 - iMonth).Font.Color = -16776961

Cells(52, i).Offset(, 1 - iMonth) = "Р"

Cells(52, i).Offset(, 1 - iMonth).Font.Color = -16776961

Cells(56, i).Offset(, 1 - iMonth) = "Р"

Cells(56, i).Offset(, 1 - iMonth).Font.Color = -16776961

Cells(57, i).Offset(, 1 - iMonth) = "Р"

Cells(57, i).Offset(, 1 - iMonth).Font.Color = -16776961

Cells(62, i).Offset(, 1 - iMonth) = "Р"

Cells(62, i).Offset(, 1 - iMonth).Font.Color = -16776961

Cells(63, i).Offset(, 1 - iMonth) = "Р"

Cells(63, i).Offset(, 1 - iMonth).Font.Color = -16776961

i = i + 6

End If

Next

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Application.EnableEvents = True