Change VBA to move last cells of a column

Please, I need help to change a VBA code.

I want to move the last 6 cells of B:B to A1.

I found a code here:
http://www.mrexcel.com/forum/excel-q...-copy-row.html

And I've changed to:

Please Login or Register  to view this content.

The attached files show what the code is doing now.

The column A:A is blank and I just want to move the last 6 rows of B:B to A1:A6, without affecting the other columns.
The way the VBA is, I want it to find the word BOX, and move together with the 5 upper cells.

I've tried to change it from scratch, but it must be a little better.

Try the attached.

AB33, that's exactly what I need!

Thank you very, very much!!!!!!!!!