Ingreso de datos de un libro a otro

Tengo unos excel armados con varios códigos vb y me funciona a la perfección y cada vez le hago mejoras para que tenga más control de los datos que ingreso, todos los libros están prácticamente entrelazados, pero una de las actualizaciones que quiero es que yo al ingresar un dato en un libro A hoja2 columnaB, se podrá ingresar automáticamente ese mismo dato en el libro B hoja2 en la primera celda vacía de la columna B.

El código del botón del formulario de ingreso de datos es este:

Private Sub CommandButton1_Click()
    If Len(TextBox1) > 1 And TextBox1 <> "" Then
        TextBox1 = "" & TextBox1
        Set h = Sheets("rendicion")
        u = h.Range("B" & Rows.Count).End(xlUp).Row + 1
        h.Cells(u, "B") = TextBox1
        TextBox1 = ""
        TextBox1.SetFocus
      End If
End Sub

Y el código fuente del libro y hoja activa donde califica los códigos ingresados es:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
     If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
            Range("E" & Target.Row) = Date
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Columns("B")) Is Nothing Then
        If Target = "" Then Exit Sub
        Set b = Sheets("carga").Columns("B").Find(Target, LookAt:=xlWhole)
        If b Is Nothing Then
            MsgBox "Documento no existe en CARGA" & vbCr & vbCr & _
                   "                  " & Target, vbCritical, "VERIFICAR CÓDIGO"
            Target.Select
            Target.ClearContents
        End If
    End If
    If Target.Column = 2 Then
        valor = Target.Value
        contarsi = Application.WorksheetFunction.CountIf(Columns(2), valor)
        If contarsi > 1 Then
            MsgBox "dato duplicado, se eliminará"
            Target.Select
            Target.ClearContents
            Target.Offset(0, 1).ClearContents
        End If
    End If
     If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    Range("c" & Target.Row) = Date
    Range("d" & Target.Row) = Format(Now, "hh:mm")
    End If
    End If
End Sub

En la imagen de arriba muestra que acá se van ingresando los datos y como estos mismos deben ir en otro libro la idea mía no es ingresar dos veces lo mismo, que automáticamente se vayan ingresando sin abrir el otro libro que este:

la ruta de los libros son: 

donde ingreso: D:\correo\correo\mensajero1.xls  (hoja rendición)

donde quiero que queden guardados también: D:\correo\correo\sala.xls  (hoja rendición)