Is your source sheet named mysheet?

What this is doing is - From anywhere in the workbook it will copy cell a2
end(xldown) end(xltoright) to the cell where your cursor is.

What did you do?

--
Don Guillett
SalesAid Software

"Gabe" wrote in message
...
It keeps deleting the value in A2? I tried the sub by its self, and it
doesn't do anything?

"Don Guillett" wrote:

try
Sub copylastcell()
Sheets("mysheet").Range("a2").End(xlDown). _
End(xlToRight).Copy ActiveCell

End Sub

--
Don Guillett
SalesAid Software

"Gabe" wrote in message
...
Hello,

I am trying to use the following code but for some reason it isn't
working?
Can you all try it and maybe tell me what I am doing wrong? Everything
works
up until it is supposed to select the cells to the right. As you would
if
you
were to use Ctrl+Shift+Right Arrow keys. Once it goes down, how do you
make
the current cell that it selects active?

Sub Macro1()
Sheets("Sheet1").Select
Range("A2").Activate
'
Application.SendKeys "{DOWN}"
'
Range(Selection, Selection.End(xlToRight)).Copy
End Sub