Ingreso de fechas desde calendario

Hola amigos,
Tengo un calendario que se activa al seleccionar una celda de un rango (A5:A6) con este código
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$5" Then UserForm1.Show
If Target.Address = "$A$6" Then UserForm1.Show
End Sub

Al seleccionar una fecha en el calendario, se ingresa en la celda activa (A5 o A6) con
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Unload Me
End Sub
¿Que
variable puedo usar para que, manteniendo el rango de activación
(A5:A6), la fecha se ingrese en celdas distintas (B5 o B6)?
Gracias