Sub Consolidar_En_Red()
Dim respuesta As Byte
respuesta = MsgBox("¿Está seguro de enviar su información?", vbQuestion + vbYesNo)
If respuesta = vbYes Then
Dim wbDestino As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range, _
celdaDestino As String
'Indica la ubicación del Libro Excel Destino
Set wbDestino = Workbooks.Open("D:\Consolidado.xlsx")
'Bloque q indica la posicion a pegar la información en DESTINO, antes se valida si se inserta por primera vez o no
Range("A1").Select
If IsEmpty(ActiveCell.Offset(1, 0).Value) Then
ActiveCell.Offset(1, 0).Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
End If
celdaDestino = ActiveCell.Address
ThisWorkbook.Activate
'Bloque q indica las hojas de ORIGEN y DESTINO
Set wsOrigen = Worksheets("Registros")
Set wsDestino = wbDestino.Worksheets("Consolidado")
'Indica la celda de origen
Const celdaOrigen = "A7"
'Inicializa los rangos de ORIGEN y DESTINO
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
rngOrigen.Select
If IsEmpty(ActiveCell.Offset(1, 0).Value) Then
Range(Selection, "AK7").Select 'a5
Else
Range(Selection, "AK7").Select
Range(Selection, Selection.End(xlDown)).Select
End If
Selection.Copy
'Pegar datos en celda DESTINO
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Guarda y cierra el libro de Excel DESTINO
wbDestino.Save
wbDestino.Close
MsgBox ("Información enviada satisfactoriamente")
End If
End Sub