Copying an activecell range and pasting to another activecell range

Hi All,

Thanks for looking - when i execute the following macro automatically the following section of the macro does not copy the contents to the destination cells - however it does work if i execute it from the VB Editor?

Please Login or Register  to view this content.

Also some suggestions on how to turn the code into a loop would be great as well, I'm fairly new to ranges and referencing them. If you have any suggested reading as well, I've got vba and macros for microsoft office by jelen but further reading would be helpful?

Many thanks in advance,

LB