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

[VIP_DC]

Делал задачу сходную с обсуждаемой, но почему то не работает

Смысл когда заполнены все графы с A по I строка должна перенестись на страницу архив

[VIP_DC]

помогите благому делу облегчения жизни людей

[DiemonStar]

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each R In Intersect(Target.EntireRow, [A:I])
    If IsEmpty(R) Then
      Exit Sub
    End If
  Next R
  Intersect(Target.EntireRow, [A:I]).Copy Sheets("àðõèâ çàêðåïëåíèÿ").[A:A].Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Intersect(Target.EntireRow, [A:I]).Delete xlUp
End Sub

вам нужно что-то подобное.