Incluir varias fechas en excel

Estoy realizando una bd en excel y estoy utilizando Visual basic. Para poner la fecha en una columna no hice así:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Lanzar control de calendario al elegir la celda B4
If Target.Column = 4 Then 'el tres correponde a la columna c, el 1 corresponde a la columna a'
Load frmCalendario
frmCalendario.Show
End If

End Sub

** Necesito insertar más fechas en esa hoja de trabajo pero no se como lo tengo que agregar