Copy rows containing data & paste in first blank row

[redhots4]

(1.) What is the VB code to select only rows containing data? Start in row B and end in Row X where X is the last row containing data.

(2.) Once item 1 above is satisfied, I need to go to another sheet ("Data"), find the first blank row, below all existing data and paste the data copied in step 1.

Thanks in advance. I'm ready to pull my hair out over here.

 

[redhots4]

Worked that time - must have been a copy/paste error when i put the code into the project. Thanks for your help!

Cheers!

SM