vba - 最後に変更された行を検索し、別のセルをその変更された行の別の列にコピーします

Question

これは少し複雑ですが、簡単な方法があると思います。

列のセルが変更された場合、その変更されたセルを含む行を見つけて、別のシートからその行の別の列にセルをコピーしようとしています。

現在、私のコードは、列の変更時に別のシートからセルをコピーしますが、マウスのクリック時にセルに貼り付けます。名前付きの列（H）に自動的に貼り付けられるように探しています。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 6 And (Target.Row >= 1 And Target.Row <= 10000) Then

Sheets("Sheet2").Range("B2:B2").Copy

End If

Dim lastRow As Long
With ActiveSheet
Sheets("Sheet1").Activate
lastRow = .Cells(.Rows.Count, "F").End(xlUp).Row
Selection.PasteSpecial xlPasteValues

End With  

End Sub