Try this, maybe not the best but it works

I asume you have the range selected:

Sub test()
Selection.Cut
Cells(Range("A65000").End(xlUp).Row + 1, 1).Paste
ActiveSheet.Paste
End Sub

Regards,

John

-----Original Message-----
I am trying to select a range in column B and then have
the information cut, and pasted into column A at the
bottom of the information in column A. How can this be
done simply?

Thanks,
David
.