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

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
.

try the following

Sub CopySelection()
If Selection.Rows.Count < Rows.Count - Range("B" &
Rows.Count).End(xlUp).Row Then
Selection.Copy
Range("B" & Rows.Count).End(xlUp).PasteSpecial
Else
MsgBox "Cannot paste selection - not enough rows"
End If
End Sub

very easy to change this to an addin to you can have it as a button on
toolbar for all spreadsheets - let me know if u need this.