将Vlookup公式应用于下一个空列

Question

Sub GET_BHAV()

Dim FinalWs As Worksheet, dataWs As Worksheet
Dim FinalLastRow As Long, dataLastRow As Long, x As Long
Dim dataRng As Range

Set FinalWs = ThisWorkbook.Worksheets("Open")

Workbooks.Open "D:\NITIN\PROSTOCK\NSE_REPORTS\cm07JAN2020.csv"

Set dataWs = Workbooks("cm07JAN2020.csv").Worksheets("cm07JAN2020")

dataLastRow = dataWs.Range("A" & Rows.Count).End(xlUp).Row
FinalLastRow = FinalWs.Range("A" & Rows.Count).End(xlUp).Row

Set dataRng = dataWs.Range("A2:G" & dataLastRow)

For x = 2 To FinalLastRow



    On Error Resume Next

        'pasteSheet.Cells(2, Rows.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteFormulas
        'FinalWs.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Application.WorksheetFunction.VLookup( _

        FinalWs.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Application.WorksheetFunction.VLookup( _
        FinalWs.Range("A" & x).Value, dataRng, 4, False)



        '[IF I USE THE CODES BELOW, IT APPLIES THE FORMULA TO A PARTICLULAR COLUMN]
        'FinalWs.Range("HR" & x).Value = Application.WorksheetFunction.VLookup( _
        'FinalWs.Range("A" & x).Value, dataRng, 4, False)


Next x

End Sub

使用这些VBA代码，我试图使用Vlookup将数据从一个工作簿获取到另一工作簿。

我需要从第一行到下一个可用查找的下一个空列中的值。我将在下一个空列中获取值，但这些值将在一行中向右移动而不是向下移动到同一列。