Macro para extraer dato de otro libro

Estimados expertos, necesito su ayuda por favor para crear una macro que extraiga dato de otra hoja.

Lo que necesito es, ejecutar la macro en el libro 1, abrir el libro 2, buscar la ultima fila utilizada de la columna ("B"), poner el valor de la celda ("C3") de la hoja ("1") del libro 1 en la siguiente celda Columna ("B"), poner la fecha actual a lado columna("C"), guardar y por ultimo extraer el dato de la columna ("A") para ponerlo en la siguiente fila vacía de la columna ("A") del libro 1.

He creado una macro pero me da un error en .Cells(uf, 2) = Asesor ya que no permite esta propiedad o método.

Sub Sig_numero()
Dim UltimaFila As Long
Dim LibroBases As Workbook, wsOrigen As Excel.Worksheet
'Dim Asesor As String
Ruta = "C:\Users\...\Desktop\BASE TOTAL.xlsx"
 Application.ScreenUpdating = False
'Abrimos el libro donde se va a copiar
Set LibroBases = Workbooks.Open(Ruta)
Set wsOrigen = Workbooks("Libro 1").Sheets("BITACORA")
Set Asesor = Sheets(1).Range("C3")
With Libro2
 'determines last row with data
 uf = Sheets("BASE TOTAL").Range("B" & Rows.Count).End(xlUp).Row
 uf = uf + 1
 .Cells(uf, 2) = Asesor 'AQUI ME SALE QUE EL OBJETO NO PERMITE ESTA PROPIEDAD O METODO
 .Cells(uf, 3) = Format(Now, "DD-mmmm-YYYY H:mm")
 Workbooks("BASE TOTAL.xlsx").Save
 .Cells(uf, 1).Copy
 With Workbooks("Libro 1")
 .Activate
 .Worksheets("BITACORA").Select
 celdavacia
 filalibre = ActiveCell.Row
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 End With
Application.CutCopyMode = False
Workbooks("Libro2.xlsx").Close False
End With
End Sub

Espero me puedan ayudar, desde ya muchas gracias

Saludos.