Error setting range in transcribing macro

Trying to write a macro to transcribe data from columns in Sheet1 to Rows in Sheet2. Assuming there is a blank between each record. I get an error on the "Set Rng1....." line.

Please Login or Register  to view this content.

Thanks in advance

Please Login or Register  to view this content.

Also, your code assumes that the active sheet is Sheet1.

Thanks shg!
That worked. I also had to change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

I'm not sure when "is nothing" can be used but now it's working great.

Object variables are Nothing when not initialized or explicitly set to Nothing.

A Variant (of which a cell value are one) can never be Nothing (it's not an object variable) but can be Empty.

Please Login or Register  to view this content.

or

Please Login or Register  to view this content.

Either is better than what you have, unless you want to test explicitly for a null string, in which case you should use

Please Login or Register  to view this content.

Thanks again shg! As usual, your help has been invaluable.