VBA-Script to copy data with a defined range from a to b