Hello jaslake,

Thank you very much for your reply, and for your great help!
The example you added works perfectly. Also thank you for the comments added to the code, that really helps me a lot.
So, if I understand correctly, if I add the following rule to the code, it will also copy the value in column C from Sheet1?

                    .Range("B" & NR).Value = Rng.Offset(0, 3).Value
Another question: What code has to be changed if the values which has to be copied needs to be pasted in a table on Sheet2?

For example, I have 2 tables on Sheet2, Table1 and Table2. How do I refer to the table in the code for the values to be pasted in?

Thank you! Will add reputation to your last post.

Kind regards,

Marco