Jacob, two more quick questions:

could you clarify a couple of points regarding the code:
Sheets("Sheet1").Range("A65536").End(xlUp).Row + 1
Why .Range("A65536")?
What does .End(xlUp) do?

Thanks for your help (and patience!)