Try this to copy the A1 value in B1:G1000
Range("B1:G1000").Value = Range("A1").Value
Or with two areas
Range("B1:G1000,I1:I5").Value = Range("A1").Value
--
Regards Ron de Bruin
http://www.rondebruin.nl
"mja" wrote in message ...
I would like to write a macro to copy information from one cell to several
others and then copy other info from one cell to several other cells