Можно упростить этот макрос?

[valerij]

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

Этот итог я сам туда перетащил, чтоб он не затирался, я об этом говорил.

Я вот как выше сделал и всё ОК.
Всё на месте и работает.

[Hugo121]

Ну можно и так сделать. Если точно не прибавится машин.
Впрочем если прибавится - можно вручную сдвинуть суммы ниже и запустить ещё раз, тоже вариант
А если ставить суммы кодом - они всегда будут строго под таблицей.
Но тогда ещё и с рамками нужно поработать, чтоб не торчали...

[valerij]

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

А если ставить суммы кодом - они всегда будут строго под таблицей....

Это точно, час сделаю.
Я всегда где формулы перевожу в макрос ибо девки шлёпнут в яч. с формулой, а потом - не работает!!!

Вернул всё назад(-2 убрал) всё чётко.

.[a20] = "Итого": .[b20] = Application.Sum(.[b2:b19]): .[c20] = Application.Sum(.[c2:c19]): _
                .[d20] = Application.Sum(.[d2:d19]): .[e20] = Application.Sum(.[e2:e19])
    End With

Hugo121
Надеюсь - это было последняя проблема.
СПАСИБО!!!!

[Hugo121]

Нет, это не последняя проблема, это пока машин 19 (или сколько там) будет правильно работать.
Когда прибавится 1 машина - Вы её этой строкой затрёте. Или она строку...
Нужно так (вот было лениво, но с Вашей помощью... ):

    With Sheets("Отчёт")
        With .[a2].Resize(.UsedRange.Rows.Count, 5)
            .ClearContents: .Borders.LineStyle = xlNone
        End With
        If x > 0 Then
            .[a2].Resize(x, 5) = out: x = x + 2
            .Range("a" & x & ":e" & x) = _
            Array("Итого", _
                  Application.Sum(.Range("b2:b" & x)), _
                  Application.Sum(.Range("c2:c" & x)), _
                  Application.Sum(.Range("d2:d" & x)), _
                  Application.Sum(.Range("e2:e" & x)))
            .[a2].Resize(x - 1, 5).Borders.Weight = xlThin
        End If
    End With

[valerij]

Всем привет.
Подскажите, как вставить переменную???
iYear = Year(Sheets(5).[a3]) 'От сюда беру Год
А сюда вставить iYear - в место " 2014"

.GoTo .Cells(.Match(CDbl(CDate("1 " & _
                Sheets(14).[a1].Value & " 2014")), [A:A], 0) + iPr, 1), True

Спасибо.
Вопрос решён.

.GoTo .Cells(.Match(CDbl(CDate("1 " & _
                Sheets(14).[a1].Value & " " & iYear)), [A:A], 0), 1), True