Macro que busca y copia en una fecha especifica

Hola expertos

En primer lugar para disculparme la ultima pregunta que solicite no fue cerrada por que me encontraba de viaje y no puede responder los datos solicitados del Experto

Bueno en esta oportunidad Tengo una macro que me copia unos datos y luego lo coloca en la siguiente columna vacía y asi sucesivamente. Todo esta bien pero lo que necesito es que me lo copia según la fecha que le corresponde Osea que busque la fecha de los datos y lo copie los datos que requiero al rango de la fecha que le corresponde.

adjunto macro que use

Sub Resumen()
Call copia
Call Limpiarbase
End Sub
Sub copia()
'Copia los valores Diarios a la hoja Costos
Sheets("Costos").Select
Range("C2").Select
Range("C2:C8").Select
Selection.Copy
With Sheets("Costos").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1)
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
MsgBox "se copio con éxito"
End Sub
Sub Limpiarbase()
Sheets("Base").Select
Range("A2:D8").Select
Selection.ClearContents
With Sheets("Base").Select
End With
MsgBox "puede cerrar el programa"
ActiveWorkbook.Close (savechange)
End Sub

Agradeceré su ayuda, (tengo el archivo para adjuntar al experto que me ayude)

no me sale ayuda please.

Me despido Agradecido del Portal que es Buenísimo

Atentamente

Cesar