copia de varios rangos de celdas

[niconico]

Quiero realizar una copia de las celdas A1-A3 y A5-A7 a las celdas B1-B3 y B5-B7, el código ya lo tengo pero no sé como expresar esto, mi actual código:

Código:

Private Sub OptionButton1_Click() 
Application.ScreenUpdating = False 

posicion = ActiveCell.Address 
If OptionButton1.Value = True Then 
Range ("A1:A3" "A5-A7).Select 
Selection.Copy 
Range("B1:B3""B5:B7").Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
Range(posicion).Select 
End If 
Application.ScreenUpdating = True 
End Sub

Muchas gracias

[3pies]

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.

[niconico]

Muchas gracias