Copiar fecha

Hola expertos tengo la siguiente macro
Sheets("Rem Bas").Select
Range("C9:N13").Select
Selection.Copy
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Base de Datos").Select
Application.Goto Reference:="R95536C1"
'Subir hasta encontrar datos
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Sheets("Base de Datos").Select
Application.CutCopyMode = False
Sheets("Rem Bas").Select
En la celda N13 hacia abajo hay una fecha, pero al copiarla a la hoja base de datos no copia la fecha si no el valor correspondiente (números), como puedo copiar el formato de fecha.
Intente en la hoja base de datos darle el formato fecha(hasta la fila 95536), pero al llenarsen varios datos (hasta la fila 2500 más o menos) no sigue copiando datos, agradezco su ayuda