Управляющая инструкция If....

[Trimbl]

Здравствуйте, Все!
Люди добрые,- помогите разобраться с Управляющей инструкцией If Then Else End If
Выдает ошибку Else without if, а почему?
Благодаорю за внимание.

Sub NewUshastok()

Dim i As Long, j As Long, n As Long
Application.ScreenUpdating = False
i = Cells(Rows.Count, 1).End(xlUp).Row
j = i + Cells(i, 1).MergeArea.Rows.Count
If Cells(i - 2, 3) = "Итого:" Then 'Начало проверки
Rows(i & ":" & j).Copy
Rows(j + 1).Insert
n = Cells(i, 1)
i = Cells(Rows.Count, 1).End(xlUp).Row
j = i + Cells(i, 1).MergeArea.Rows.Count
ElseIf Cells(i, 1).MergeArea.Rows.Count > 2 Then 'Начало новой проверки
Rows(i + 1 & ":" & j - 2).Delete
Cells(i, 1) = n + 1
Cells(i, 2).Select
Selection.UnMerge
Range(Cells(i, 2), Cells(i, 22)).ClearContents
Range(Cells(i, 2), Cells(i + 1, 2)).Select
Selection.Merge
Cells(i, 1).Select
With ActiveCell
i = .Row + .MergeArea.Rows.Count
Cells(i + 1, 2).Select
Cells(i - 1, 4).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"
Cells(i - 1, 5).FormulaR1C1 = _
"=IF(OR(ISBLANK(R[-1]C[-1]),ISBLANK(R[-1]C)),"""",SUMPRODUCT(R[-" & i - .Row - 1 & "]C[-1]:R[-1]C[-1], R[-" & i - .Row - 1 & "]C:R[-1]C) / RC[-1])"
Else ' Новый блок инструкций
Cells(i - 1, 2).Select
End If
End With
Application.ScreenUpdating = True
End Sub

[VictorM]

Он у Вас внутри
With ActiveCell

End With
находится
не вникаю особо, т.к. засыпаю уже)))
выровняйте код
просмотрите соответствие
If
Else
End If

[doober]

Хоть и спит Виктор,но он прав

Sub NewUshastok()

    Dim i As Long, j As Long, n As Long
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, 1).End(xlUp).Row
    j = i + Cells(i, 1).MergeArea.Rows.Count
    If LTrim(Cells(i - 2, 3)) = "Итого:" Then 'Íà÷àëî ïðîâåðêè
        Rows(i & ":" & j).Copy
        Rows(j + 1).Insert
        n = Cells(i, 1)
        i = Cells(Rows.Count, 1).End(xlUp).Row
        j = i + Cells(i, 1).MergeArea.Rows.Count
    ElseIf Cells(i, 1).MergeArea.Rows.Count > 2 Then 'Íà÷àëî íîâîé ïðîâåðêè
        Rows(i + 1 & ":" & j - 2).Delete
        Cells(i, 1) = n + 1
        Cells(i, 2).Select
        Selection.UnMerge
        Range(Cells(i, 2), Cells(i, 22)).ClearContents
        Range(Cells(i, 2), Cells(i + 1, 2)).Select
        Selection.Merge
        Cells(i, 1).Select
        With ActiveCell
            i = .Row + .MergeArea.Rows.Count
            Cells(i + 1, 2).Select
            Cells(i - 1, 4).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"
            Cells(i - 1, 5).FormulaR1C1 = _
   "=IF(OR(ISBLANK(R[-1]C[-1]),ISBLANK(R[-1]C)),"""",SUMPRODUCT(R[-" & i - .Row - 1 & "]C[-1]:R[-1]C[-1], R[-" & i - .Row - 1 & "]C:R[-1]C) / RC[-1])"
        End With
    Else 
        Cells(i - 1, 2).Select
    End If

    Application.ScreenUpdating = True
End Sub

[Trimbl]

Сообщение от VictorM

Он у Вас внутри
With ActiveCell

End With
находится
не вникаю особо, т.к. засыпаю уже)))
выровняйте код
просмотрите соответствие
If
Else
End If

VictorM спасибо, для меня ответ немного мутноватый, но смысл понимаю.
Спокойной ночи. Хороших снов.

[Trimbl]

Сообщение от doober

Хоть и спит Виктор,но он прав

Sub NewUshastok()

    Dim i As Long, j As Long, n As Long
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, 1).End(xlUp).Row
    j = i + Cells(i, 1).MergeArea.Rows.Count
    If LTrim(Cells(i - 2, 3)) = "Итого:" Then 
        Rows(i & ":" & j).Copy
        Rows(j + 1).Insert
        n = Cells(i, 1)
        i = Cells(Rows.Count, 1).End(xlUp).Row
        j = i + Cells(i, 1).MergeArea.Rows.Count
    ElseIf Cells(i, 1).MergeArea.Rows.Count > 2 Then 
        Rows(i + 1 & ":" & j - 2).Delete
        Cells(i, 1) = n + 1
        Cells(i, 2).Select
        Selection.UnMerge
        Range(Cells(i, 2), Cells(i, 22)).ClearContents
        Range(Cells(i, 2), Cells(i + 1, 2)).Select
        Selection.Merge
        Cells(i, 1).Select
        With ActiveCell
            i = .Row + .MergeArea.Rows.Count
            Cells(i + 1, 2).Select
            Cells(i - 1, 4).FormulaR1C1 = "=IF(ISBLANK(R[-1]C),"""",SUM(R[-" & i - .Row - 1 & "]C:R[-1]C))"
            Cells(i - 1, 5).FormulaR1C1 = _
   "=IF(OR(ISBLANK(R[-1]C[-1]),ISBLANK(R[-1]C)),"""",SUMPRODUCT(R[-" & i - .Row - 1 & "]C[-1]:R[-1]C[-1], R[-" & i - .Row - 1 & "]C:R[-1]C) / RC[-1])"
        End With
    Else 
        Cells(i - 1, 2).Select
    End If

    Application.ScreenUpdating = True
End Sub

doober, благодарю за готовое решение.
1. А. не могли-бы вы прокоментировать строку
If LTrim(Cells(i - 2, 3)) = "Итого:" Then
а именно, что это такое - LTrim ?
2. В учебном пособии встретил такое выражение:
В инструкции If Then Else 'End If ключевые слова ElseIf и Else являются необязательными. Как понимать выражение - "являются необязательными"?

[doober]

LTrim это скорее всего привычка моя пробелы в начале строки убирать.
читайте вложение