From the destination book copying from source wb with same sheet and range
Sub copysht()
ms = ActiveSheet.Name
mr = ActiveCell.Address
Workbooks("source.xls").Sheets(ms).Range(mr).Copy ActiveCell
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"wayne" wrote in message
.com...
Hi,
I would like to set up 2 workbooks, available & allocated. How do I
choose one cell from 'avaikable' and cut & paste it to its
corresponding cell address in 'allocated'. Just one click would be
nice!

yours amatuerishsly

Wayne
TIA