Excel - EVITAR ENVIAR LA MISMA INFORMACIÓN POR SEGUNDA VEZ

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