Código para copiar el valor de una celda a varias celdas no adyacentes (no contiguas)

hola, !

un error 1004 en tiempo de ejecucion, podria significar varias probables causas -?-
(p.e. cuando la hoja esta protegida y alguna/s de la/s celda/s de destino tiene/n bloqueo activado)

otra posibilidad es que hubiera conflictos con las referencias a las librerias en el proyecto de macros
(revisa desde el editor de vba, el menu herramientas / referencias... por si alguna dice "falta" o "missing")

dicho sea de paso, no es necesario "danzar" haciendo (re)selecciones de rangos, hojas, libros, etc.
para poder administrar sus metodos y propiedades (al menos, en la gran mayoria de los casos)
prueba con menos instrucciones (p.e.)
Range("r6").Copy Range("g10,k10,o10,s10")

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

... he hecho varios intentos pero no me resulta incluso ocupando el grabador, que me da el siguiente codigo:

Range("R6").Select
Selection.Copy
Range("G10,K10,O10,S10").Select
Range("S10").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select

pero cuando lo ejecuto se detiene en ActiveSheet.Paste reclamando
error 1004 en tiempo de ejecucion problemas con el metodo Paste.