Cambiar Hoja/ Con fecha del mes

Estimados..
Tengo el siguiente codigo en la Hoja1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$11" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
Me.Range("c4:c12").Copy
Worksheets("Hoja2").Range("a65536").End(xlUp).Offset
(1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Me.Range("c4:c11").ClearContents
SendKeys "^{Up}"
End Sub

En la Hoja2 B8:B65536 va una fecha..existe posibilidad que
al cerrar el mes (28/29/30/31) empiece a copiar en una
hoja nueva y en la Hoja2 deje solo lo que corresponde al
mismo
me explico Ej: Enero 31 dias desde el 01/01/2004 hasta el
31/01/2004 si se coloca otra fecha que no corresponda al
mes genere el copiado en la hoja3 26/02/2004 por
ejemplo...
y si corresponde a Marzo 03/03/2004 en hoja4 y asi
sucesivamente!!
Espero haberme explicado estoy dispuesto a enviar archivo
espero puedan ayudarme!!