Para seleccionar un rango discontinuo:
Código:
Range("A1:A3,A5:A7").Select
El problema es que no puedes pegar un rango discontínuo, porque Excel no lo permite.
Para solucionar eso, hazlo por partes: Copia y pega de A1 a A3 y luego de A3 a A5. No se puede hacer todo en bloque, o al menos, eso creo, pues si intentas copiar dos celdas discontinuas (selecciona una celda, pulsa la tecla control, y selecciona la otra celda) y quieres pegarlas en otras celdas discontinuas, te dirá que nanai.