Macro para agenda en excel

Voy a ver como me explico.. Necesito hacer una agenda..

En la hoja1 tengo columba B5 haya las B25 donde csrgo las fechas de las reuniones..

Mi idea es replicar un calendario en la hoja 2 y mediante un clic en la hoja 2 me lleve el contenido a la hoja1 B5 o la que corresponda según disponibilidad... Logre armar un macro.. Pero solo me replicaba la columna B5 la cual ya tenia info, siempre me reemplaza la misma pero yo necesito y completando hasta el B25 según corresponda.. Espero haber sido claro.. Esta fue la

Macro que use y me sirvió :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
i = 1
If Target.Count > 1 Then
For Each c In Target
Sheets("Sheet2").Range("A" & LTrim(Str(i))).Value = c.Value
i = i + 1
Next c
Else
Sheets("Sheet2").Range("B5").Value = Target
End If
End Sub

Probe de reemplazar em B5 por B5:B25 pero me reemplaza todas xon la misma data