перенос строк на другую страницу по условию

[Hugo121]

Кого убрать?
Скачайте ещё раз архив, запустите файл, забейте свой pending куда-нибудь - правильно сработает или опять в 23 строку?
Т.е dumped

[nilem]

Попробовал с ListObjects, раз уж 2007. Вроде фурычит

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Me.ListObjects(1).ListColumns(2).Range) Is Nothing Then Exit Sub
If Trim(Target.Value) = "dumped" Then
    Dim x
    With Sheets("Sheet1").ListObjects(1).ListRows(Target.Row - 1)
        x = .Range.Value: .Delete
    End With
    With Sheets("Sheet2").ListObjects(1)
        .ListRows.Add: .ListRows(.ListRows.Count).Range.Value = x
    End With
End If
End Sub

Вместо последнего With...End With можно так записать, оказывается:

Sheets("Sheet2").ListObjects(1).ListRows.Add.Range.Value = x

Последний штрих :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Me.ListObjects(1).ListColumns(2).Range) Is Nothing Then Exit Sub
If Trim(Target.Value) = "dumped" Then
    With Sheets("Sheet1").ListObjects(1).ListRows(Target.Row - 1)
        Sheets("Sheet2").ListObjects(1).ListRows.Add.Range.Value = .Range.Value: .Delete
    End With
End If
End Sub

[Hugo121]

Что-то как-то непрозрачно...
Дома поизучаю на 2007, не использовал ещё таких...

Да, забыл - мой вариант рассчитан на изменение ячеек по одной - если закопипастить сразу несколько, то будет ошибка. Это нужно бы исправить, но раз вариант Николая появился, то вароятно лучше использовать его - там это уже предусмотрено.

[Настасия]

Прикольно спасибо работает