Суммирование определенных ячеек при переносе

[Pilot]

Возникла проблемка. Вот кусок кода, с помощью которого вводимые на одном листе данные переносятся с добавлением строки на другой лист:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("Промежуточные_итоги").Range ("A999").End(xlUp).Item(2)
If Not .Locked Or Not Me.ProtectContents Then
.Value = Me.Range("B4").Value
Else
MsgBox "Ячейка : " & .Address & " защищена", , ""
End If
End With
With Sheets("Промежуточные_итоги").Range ("A999").End(xlUp).Item(2)
If Not .Locked Or Not Me.ProtectContents Then
.Value = Me.Range("D4").Value
Else
MsgBox "Ячейка : " & .Address & " защищена", , ""
End If
End With
With Sheets("Промежуточные_итоги").Range ("F999").End(xlUp).Item(2)
If Not .Locked Or Not Me.ProtectContents Then
.Value = Me.Range("C4").Value
Else
MsgBox "Ячейка : " & .Address & " защищена", , ""
End If
End With
With Sheets("Промежуточные_итоги").Range ("F999").End(xlUp).Item(2)
If Not .Locked Or Not Me.ProtectContents Then
.Value = Me.Range("E4").Value
Else
MsgBox "Ячейка : " & .Address & " защищена", , ""
End If
End With

Собственно вопрос - как сделать чтобы при выполнении этого кода, определенные ячейки на том листе куда переносятся данные суммировались. Напрмер А1 и F1. Не прибегая к формуле СУММ

[SAS888]

Попробуй вместо строки

.Value = Me.Range("B4").Value

использовать код

Range("B4").Copy
        .PasteSpecial xlPasteValues, xlAdd
        Application.CutCopyMode = False

И так, для остальных ячеек аналогично.

[Pilot]

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

Попробуй вместо строки

.Value = Me.Range("B4").Value

использовать код

Range("B4").Copy
        .PasteSpecial xlPasteValues, xlAdd
        Application.CutCopyMode = False

И так, для остальных ячеек аналогично.

Спасибо, но я так понял - это другой вариант вставить данные на другой лист с прибавлением строки. А возможно ли к этому добавить суммировоние той ячейки КУДА вставляются данные с уже имеющимися и вывести результат в еще одной без использования формулы СУММ. Например: Данные Лист1 В4 копируются в Лист2 А1, А1 суммируется с А2 и результат заносится в А3.

[VictorM]

без использования формулы СУММ

Range("A3").Value = Range("A1").Value + Range("A2").Value

[Pilot]

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

Range("A3").Value = Range("A1").Value + Range("A2").Value

Вот что получилось. Но дело вот в чем, Из Листа1 В4 и D4 данные переносятся на Лист2 в столбец А и В соответственно с добавлением строки. Надо чтобы сумма Лист2 А и В суммировались тоже по мере добавления.

[SAS888]

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