Sub Copy_Files_Dates()

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim Fdate As Date
    Dim FileInFromFolder As Object
    
    Dim FileExt As String

    FromPath = "G:\1\3\"  '<< Change
    ToPath = "G:\1\145\"    '<< Change

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If

    If Right(ToPath, 1) <> "\" Then
        ToPath = ToPath & "\"
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(FromPath) = False Then
        MsgBox FromPath & " doesn't exist"
        Exit Sub
    End If

    If FSO.FolderExists(ToPath) = False Then
        MsgBox ToPath & " doesn't exist"
        Exit Sub
    End If

    For Each FileInFromFolder In FSO.getfolder(FromPath).Files
        Fdate = Int(FileInFromFolder.DateLastModified)
        If Fdate >= DateSerial(2019, 1, 8) And Fdate <= DateSerial(2019, 1, 9) And FileInFromFolder = "OBC.TskMdt2*" Then
            FileInFromFolder.Copy ToPath
        End If
    Next FileInFromFolder
   

End Sub