Poner rango según textbox

hola quisiera saber si es posible indicar por medio de un textbox un rango para mover una tabla en una hoja de calculo llamada "formato factura 2"

ya que necesito que si un textbox=a "5-5" el rango sea range("A1")

y si el textbox= a "5-10" el rango sea range("A2")

en mi caso el textbox se llama rdia

probé con:

Private Sub rango()
rdia As Range
End Sub
Private Sub CommandButton3_Click()
dia = TextBox1 & " - " & TextBox2
Sheets("formato factura 2").Select
Selection.Cut Destination:=rdia
Range("DIA[[#All],[Columna1]]").Select
a2 = "5 - 10"
If dia = "5 - 5" Then
rdia.Text = "a1"
End If
End Sub

ayuda por favor