Excel - Apoyo: Guardar Archivo Independiente desde Excel (Macro)

Private Sub Revision()

'On Error Resume Next

Dim Filtro As String

Dim IndiceFiltro As Integer

Dim Titulo As String

Dim NombreArchivo As Variant

Dim Ruta2 As Variant

Ruta2 = Range("A5")

Filtro = "Archivos PDF (*.pdf),*.pdf,"

IndiceFiltro = 1

Titulo = "Seleccionar Archivos - Mx"

NombreArchivo = Application.GetOpenFilename(Filtro, IndiceFiltro, Titulo)

**********Aquí Falta el Código**********

Else

NombreArchivo = False

        MsgBox "No Seleccionaste Archivos"

End If

End Sub

nombreArchivo = Application.GetOpenFilename(Filtro, IndiceFiltro, Titulo)

range("A5").value= nombreArchivo

Private Sub Revision()

'Este codigo permite abrir el explorador de archivos y al seleccionar uno, este lo copia y pega

'en la ubicacion predeterminada de la celda A5 de la hoja activa (Otra carpeta).

    Dim Filtro As String

    Dim IndiceFiltro As Integer

    Dim Titulo As String

    Dim rutaArchivoSeleccionado As Variant, Ruta2 As String

    Dim soloNombreArchivo As String

    Dim FSO As Object

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Ruta2 = Range("A5").Value

    Filtro = "Archivos PDF (*.pdf),*.pdf,"

    IndiceFiltro = 1

    Titulo = "Seleccionar Archivos - Mx"

    rutaArchivoSeleccionado = Application.GetOpenFilename(Filtro, IndiceFiltro, Titulo)

    If rutaArchivoSeleccionado <> False Then

        soloNombreArchivo = FSO.GetFileName(rutaArchivoSeleccionado) 'obtengo solo el nombre del archivo y su extension

        'fileCopy source, destination    'acepta estos 2 parametros

        FileCopy rutaArchivoSeleccionado, (Ruta2 & "\" & soloNombreArchivo)

        MsgBox "Archivo copiado exitosamente a carpeta: " & vbNewLine & vbNewLine & Ruta2

    Else: MsgBox "No ha seleccionado ningun archivo"

    End If

End Sub