Tengo el siguiente código en visual basic

De acuerdo a este código en visual basic, solo me permite seleccionar una fila y una columna en el área de texto de la aplicación. Lo que quiero es que me ayuden en el código para poder seleccionar más de 2 celdas a la vez y las pegue en la hoja especificada..

Private Sub cmdcopiar_Click()
Dim hoja1origen As String
Dim hoja2origen As String
Dim hoja3origen As String
Dim filaorigen As Double
Dim columnaorigen As Double
Dim filadestino As Double
Dim columnadestino As Double
Dim hojaorigen As String
Dim valorcelda As String

hoja1origen = optorigen1.Value
hoja2origen = optorigen2.Value
hoja3origen = optorigen3.Value

hoja1destino = optdestino1.Value
hoja2destino = optdestino2.Value
hoja3destino = optdestino3.Value

filaorigen = txtfilaorigen.Value
columnaorigen = txtcolumnaorigen.Value

filadestino = txtfiladestino.Value
columnadestino = txtcolumnadestino.Value

If hoja1origen = "Verdadero" Then
hojaorigen = "Hoja1"
ElseIf hoja2origen = "Verdadero" Then
hojaorigen = "Hoja2"
ElseIf hoja3origen = "Verdadero" Then
hojaorigen = "Hoja3"

End If

If hoja1destino = "Verdadero" Then
hojadestino = "Hoja1"
ElseIf hoja2destino = "Verdadero" Then
hojadestino = "Hoja2"
ElseIf hoja3destino = "Verdadero" Then
hojadestino = "Hoja3"

End If

Sheets(hojaorigen).Select
valorcelda = Cells(filaorigen, columnaorigen)
Sheets(hojadestino).Select
Cells(filadestino, columnadestino) = valorcelda

End Sub