Dim Path1, Path2, fPath, lPath, lFile, Max
    Dim i As Variant, j As Variant
    Dim FilesColl As New Collection
    Dim FSO As Object, GetFol As Object, file As Object
    Path1 = Cells(2, 1)
    Path2 = Cells(3, 1)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set GetFol = FSO.GetFolder(Path1)

    For Each i In GetFol.Files
        If i.Name Like "*" Then FilesColl.Add i.Path
    Next i
    
    Max = 0
    For j = 1 To FilesColl.Count
        fPath = FilesColl(j)
        Set file = FSO.GetFile(fPath)
        If file.DateLastModified > Max Then
            Max = file.DateLastModified
            lPath = fPath
        End If
    Next j
    
    lFile = FSO.GetFileName(lPath)
    FileCopy lPath, Path2 & "\" & lFile
    
    Set FSO = Nothing
    Set GetFol = Nothing
    Set file = Nothing