Great. That did the job. Thank you.

"Norman Jones" wrote:

Hi Erik,

If you want the receiving range on Sheet2 to be (say) C11:D30, you could
replace your code with:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim copyRng As Range

Set copyRng = Range("A1:B20") '<<<<<< CHANGE

If Not Intersect(Target, copyRng) Is Nothing Then
With Worksheets("Sheet2"). _
Range(Target.Address).Offset(10, 2) '<<<<< CHANGE

.Value = Target.Value
End With
End If

End Sub

You can alter the receiving range on Sheet2 by altering the Offset
co-ordinates above.

Set the copy range and receiving ranges to suit your personal requirements.

---
Regards,
Norman