Доработка макроса копирования

[Enigmatic]

Добрый день!
Есть макрос, который при выделении всей строки копирует заданный диапазон на другой лист в А1. Как доработать, чтобы еще и из нижней строки под выделенной тот же диапазон копировался на другой лист, например в А2?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count < Columns.Count Then Exit Sub
    Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Copy Sheets("Лист1").[A1]
End Sub

[IgorGO]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Columns.Count < Columns.Count Then Exit Sub
    Range(Cells(Target.Row, 2), Cells(Target.Row + 1, 4)).Copy Sheets("Лист1").[A1]
End Sub

такая вот доработка макроса

[Enigmatic]

Спасибо
Я тоже прибавлял 1, но не туда..