The Question as well as your name is ambiguous
don't know if you are ready to copy or to paste.
Sometimes giving the purpose will get you a completely
different and more useful reply.
(who, when, why, where, how, how much)
This macro will get you to the last cell in a column (toolbars.htm)
Sub GotoBottomOfCurrentColumn()
'Tom Ogilvy 2000-06-26
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub
I guess this is the closest I can provide to your question,
it copies the last cell in the column to the cell below it,
using copy & paste.
Sub mavman01()
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
Selection.Copy
activecell.offset(1,0).select
ActiveSheet.Paste
end sub
If not familiar with installing and using macros see
http://www.mvps.org/dmcritchie/excel/getstarted.htm
The first macro can be found on my Toolbars page
along with toolbar buttons you can use to invoke.
http://www.mvps.org/dmcritchie/excel/toolbars.htm#macros