Consulta sobre copiar datos de un archivo a otro

Ahi lo modifique pero anda a medias, me copia solo los datos fijos en otro excel.
pero los datos que busco para luego copiar en otro no.
Es como si le faltara poner de que Excel tiene que buscar antes de poner de que hora y rango

A mi me quedo esto. Para dentro del mismo excel sacando las 2 primeras anda bien.
Hoy el "ok" si me lo copia pero da error en la (0, 1)

Workbooks("Bases de Datos.xlsx").Activate
ActiveWorkbook.Sheets("Historia-Facturas").Select
Range("a60000").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0) = ("ok")
ActiveCell.Offset(0, 1) = Sheets("Ingreso").Range("B18")
ActiveCell.Offset(1, 0).Select

Me da error en : ActiveCell.Offset(0, 1) = Sheets("Ingreso").Range("B18")
Es como si le faltara poner en que Excel buscar algo como aca.

ActiveCell.Offset(0, 1) = XXXX("Exccel1.xlcx").Sheets("Ingreso").Range("B18")

Gracias.