VBA: Как вставить значение Vlookup в первую пустую ячейку/строку

Question

Я пытаюсь вставить значение Vlookup в первую пустую ячейку/строку. Вот мой код

Dim lookfor As Range 
Dim searchrange As Range 
Dim book1 As Workbook 
Dim book2 As Workbook 
Dim book2name As String 

book2name = "Micros_export.xlsm" 

Dim book2namepath As String 

book2namepath = "C:\Users\pkechichian\Documents\Revamp\Micros_export.xlsm" 

Set book1 = ThisWorkbook 
Set book2 = Workbooks.Open(book2namepath) 
Set lookfor = book1.Sheets("Actual").Cells(2, 4) 
Set searchrange = book2.Sheets("Accpac").Range("E:H") 

lookfor.Offset(2, 0).End(xlDown).Value = Application.VLookup(lookfor, searchrange, 3, False) 

Спасибо за помощь и извините за форматирование!

Answer 1

отредактирован после OP пояснений

Option Explicit 

Sub main() 
    Dim book2namepath As String 
    Dim searchrange As Range 

    book2namepath = "C:\Users\pkechichian\Documents\Revamp\Micros_export.xlsm" 
    Set searchrange = Workbooks.Open(book2namepath).Sheets("Accpac").Range("E:H") '<-- set range directly at workbook opening 
    With ThisWorkbook.Sheets("Actual") '<--| refer to "destination" sheet 
     .Cells(.Rows.Count, "D").End(xlUp).Offset(1).value = Application.VLookup(.Cells(2, 4).value, searchrange, 3, False) '<--| write lookup value in first empty cell below in column "D" 
    End With 
    ActiveWorkbook.Close False '<--| close opened workbook without saving changes 
End Sub 

Answer 2

Спасибо за быстрый ответ! Он отлично работает, за исключением того, что значение не вставлено в нужное место. Я добавил несколько изображений, чтобы дать вам лучшую идею.

The value should be inserted in "D4" This is where the value is inserted