Копирование из непрерывного диапозона ячеек по условию.

[Nicolas_46]

Уважаемые форумчане, пытаюсь решить следующую задачу:

1) необходимо определить конец непрерывного диапазона ячеек.
2) поднимаясь вверх сравнить сумму двух ячеек (например С6+Е6) в каждой строке с определенной ячейкой не входящей в этот диапазон (G2).
3) если С6+Е6>G2 то копируем эту строчку в конец диапазона (например 15 строка), заменяем значение E6 на (G2-С6) в оригинальной строке,
в скопированной С15=0, E15=C6+E6-G2

Пока получилось сделать условие чтобы в заранее заданном диапазоне при С6+Е6>G2 появлялось сообщение.

Не получается уйти от заранее заданного диапазона и записать условие копирования и замены значения ячеек.

Sub разделение()

Dim a As Range, c As Range ', LastRow As Long
'LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each a In [C4:C30] '(Rows.Count, 4).End(xlUp).Row
  For Each c In [E4:E30] '(Rows.Count, 6).End(xlUp).Row
    If a + c > [G2] Then MsgBox "1"
    

   ' Range("C4:G" & Cells(Rows.Count, 10).End(xlDown).Row).Paste
    Next c
Next a
'ActiveSheet.Range("C4").End(xlDown).Offset(1, 0).Paste
End Sub

P.S работаю в 2007 версии
Заранее огромное спасибо за помошь!

[staniiislav]

попробуйте так, не быстрый код, но работает вроде...

Option Explicit

Sub copyClee()
Dim iRow_1 As Integer, iRow_2 As Integer, i As Integer, S As Long
S = Range("G2")
iRow_1 = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
For i = 2 To iRow_1
    If Cells(i, 3) + Cells(i, 5) > S Then
        iRow_2 = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
        Range("B" & iRow_2 & ":" & "E" & iRow_2).Value = Range("B" & i & ":" & "E" & i).Value
        Cells(i, 5) = S - Cells(i, 3)
        Cells(iRow_2, 3) = 0
        Cells(iRow_2, 5) = Cells(i, 3) + Cells(i, 5) - S
    End If
Next i
End Sub

[Nicolas_46]

Спасибо большое!!!! Все работает. Только две строки необходимо поменять местами)

[staniiislav]

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

Спасибо большое!!!! Все работает. Только две строки необходимо поменять местами)

наверное не правильно понял задачу

[Nicolas_46]

Тем не менее пример хороший, все остальное смог сделать самостоятельно. Спасибо.