copy insert macro

I have the following macro:

' Keyboard Shortcut: Ctrl+Shift+e
'

Selection.Insert Shift:=xlDown

I use this to copy data and insert. I don't like too use the mouse so I
use Shortcut keys. The problem is that I have to always go back and
copy my selection each time I use Ctrl+Shift+e. For example I have in
cell A1 "JOE". I want to go to A1, use Ctrl C - copy and then go to
multiple areas in my sheet, press Ctrl+Shift+e and insert and shift
down "JOE". When I use my macro it does it once and then does not work
again unless I go back to cell A1 and copy again. How can I fix this?
Thanks

Hi,

This is something that may help. There are probably otherway's, but....


Public myname
Sub Macro1()
''Assign short cut key to this macro
Selection.Insert Shift:=xlDown
myname = Selection
Sheet1.Range("g1").Value = myname<<<< this can be placed out of the way
End Sub
Sub Macro2()
''assign short cut key to this macro
ActiveCell.Value = myname
End Sub

"snax500" <gottschalk@worldnet.att.net> wrote in message
news:1105720915.109733.23020@z14g2000cwz.googlegroups.com...
>I have the following macro:
>
> ' Keyboard Shortcut: Ctrl+Shift+e
> '
>
> Selection.Insert Shift:=xlDown
>
> I use this to copy data and insert. I don't like too use the mouse so I
> use Shortcut keys. The problem is that I have to always go back and
> copy my selection each time I use Ctrl+Shift+e. For example I have in
> cell A1 "JOE". I want to go to A1, use Ctrl C - copy and then go to
> multiple areas in my sheet, press Ctrl+Shift+e and insert and shift
> down "JOE". When I use my macro it does it once and then does not work
> again unless I go back to cell A1 and copy again. How can I fix this?
> Thanks
>