How can I change this code to fill to the last cell with data in it?

2 Questions here...(Entire macro is at the bottom)

QUESTION 1 - In line 4 of the code below, in Column B, how can I get this code to auto-fill ONLY equal to the bottom-most row with any data in column A?
Note that it's never exactly "B254"



QUESTION 2 - How can I change these 3 lines of code...

Please Login or Register  to view this content.

Instead of selecting the whole column, I would like to ONLY select, copy and paste the cells in that column with data in them BUT NOT the whole column?



Here's ALL the code...

Please Login or Register  to view this content.

Thanks much

Maybe like this, no need to autofill if we've already spotted the lastrow, we can insert data in the whole range all at once:

Please Login or Register  to view this content.

Well, they're little rockets, but they count! Glad to help...