Hi everyone!!

Good Day!!

I have a issue with the next macro:

Sub test_resume()
Dim SaveDriveDir As String, MyPath As String
    Dim FName As Variant
    Sheets("Reporte").Select
    SaveDriveDir = CurDir
    MyPath = Application.DefaultFilePath '
    ChDrive MyPath
    ChDir MyPath
    FName = Application.GetOpenFilename(filefilter:="Excel Files, *.xl*") ' Documento

    If FName = False Then
        'Realizar la busqueda
    Else
        GetData FName, "Reporte", "C7:J7000", Sheets("Reporte").Range("C7"), False, False ' In this range, I have 2 Time format, but the problem is when I copy put me a Date Format with this error (00/01/1900  08:30:00 a.m.)
        End If

    ChDrive SaveDriveDir
    ChDir SaveDriveDir
    

With Range("K7:K" & Cells(Rows.Count, 2).End(xlDown).Row)
        .Formula = "=IF(E7="""","""",TEXT((G7-F7)+IF(F7>G7,1),""h.mm""))" ' And whit this option put me in all colum the formula.. :(
        
    End With
        
    End With
End Sub
Thanks again for everyting!

Best Regards!