在C2中将公式填充到B列的相应最后一行

Question

I am working in a new project and new to VBA. I have to fill formula to C2 to last row on the B column. my code as below

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("C2").Select
Range("C2:C" & LastRow).Formula = "=VLOOKUP(B2,'[Tracking Sheet Opens.xlsb]Data'!$B$1:$J$65530,9,0)"

This prompt me as error 1004 - method range or object global failed

Pls suggest me to way forward.

Answer 1

I am not sure from the PO if the searched range in the VLookup is in "Tracking" sheet in the same workbook, or it's in "Data" sheet in another workbook named "Tracking Sheet Opens" ,so my answer covers both scenarios.

Code

Option Explicit

Sub CopyVLookupFormulaDown()

Dim LastRow As Long

With Sheets("Sheet2")
    ' find last row with data in Column A in "Sheet2"
    'LastRow = .Range("A" & .Rows.Count).End(xlUp).Row

    ' from post maybe need to look for last row in Column B
    LastRow = .Range("B" & .Rows.Count).End(xlUp).Row

    ' Option 1: check value of cell B2 in "sheet2" with the range
    ' in sheet "Data" in another workbook named "Tracking Sheet Opens"
    .Range("C2").Formula = "=VLOOKUP(B2,'[Tracking Sheet Opens.xlsb]Data'!$B$1:$J$65530,9,0)"


    ' Option 2: check value of cell B2 in "sheet2" with the range
    ' in sheet "Tracking" in the same workbook
    .Range("C2").Formula = "=VLOOKUP(B2,'Tracking'!$B$1:$J$65530,9,0)"

    ' same line for both options, copy formula down
    .Range("C2:C" & LastRow).FillDown

End With

End Sub