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