Consulta Excel - VBA - Fechas

Estimados, les hago una consulta.. tengo una macro para copiar y pegar datos de una hoja a otra.

El problema que tengo es que cuando pega una fila con fechas, Excel me invierte el día por el mes.

Es decir, copio un formato de (dd,mm,yyyy) y pega uno de (mm,dd,yyyy). El primer formato es el que uso generalmente y con el cual está configurado mi Windows.

La pregunta es ¿Qué puedo tocar en la macro para que se copie en formato correcto?

No tengo mucho conocimiento acerca de macros, les copio la que uso a ver si me pueden ayudar.

Muchas gracias!



Sub transferirdatosotrahoja()



Dim PRO As String
Dim ORD As String
Dim REN As String
Dim Fecha As String
Dim ART As String
Dim CANT As String
Dim Entrega As String
Dim NPED As String

Dim ultimafila As Long
Dim ultimafilaauxiliar As Long
Dim cont As Long
Dim palabrabusqueda As String

palabrabusqueda = Sheets("INDEX").Cells(7, 3)
palabrabusqueda = "*" & palabrabusqueda & "*"

ultimafila = Sheets("Base").Range("B" & Rows.Count).End(xlUp).Row

If ultimafila < 2 Then
Exit Sub
End If

For cont = 2 To ultimafila
If Sheets("Base").Cells(cont, 1) Like palabrabusqueda Then
PRO = Sheets("Base").Cells(cont, 1)
ORD = Sheets("Base").Cells(cont, 2)
REN = Sheets("Base").Cells(cont, 3)
Fecha = Sheets("Base").Cells(cont, 10)
ART = Sheets("Base").Cells(cont, 11)
CANT = Sheets("Base").Cells(cont, 13)
Entrega = Sheets("Base").Cells(cont, 22)
NPED = Sheets("Base").Cells(cont, 46)


ultimafilaINDEX = Sheets("INDEX").Range("B" & Rows.Count).End(xlUp).Row
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 2) = PRO
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 3) = ORD
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 4) = REN
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 5) = Fecha
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 6) = ART
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 7) = CANT
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 8) = Entrega
Sheets("INDEX").Cells(ultimafilaINDEX + 1, 9) = NPED
End If
Next cont



End Sub