error object variable block when match between two files and replace

[Maklil]

Hello
I no know if this code fits my project. I got this code from the internet . I want matching column B between two files . the file1 should match with file 2. if there is different the data in file 2 then should replace new data in file 1 the range is from A:E and the headers in row1
I got error object variable block in this line

 m = Application.Match(rw.Cells(1).Value, wsDest.Columns("B"), 0)

Sub Button2_Click()
    
    Dim OpenFileName As String
    Dim wb As Workbook
    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet
    Dim m, rw As Range
    
    OpenFileName = Application.GetOpenFilename 'Select and Open workbook
    If OpenFileName = "False" Then Exit Sub
    
    Set wb = Workbooks.Open(OpenFileName, ReadOnly:=True)
    Set wsCopy = wb.Worksheets("Data") 'for example
    
    For Each rw In wsCopy.Range("A2:E" & wsCopy.Cells(Rows.Count, "A").End(xlUp).Row).Rows
        'matching row based on Id ?
        m = Application.Match(rw.Cells(1).Value, wsDest.Columns("B"), 0)
        'if we didn't get a match then we add a new row
        If IsError(m) Then m = wsDest.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row 'new row
        rw.Copy wsDest.Cells(m, "A") 'copy row
    Next rw
    
    wb.Close False 'no save
        
End Sub

any suggestion guy to do that

 

[Alex Blakenburg]

What is wsDest supposed to be ?
I can't see a Set wsDest = Worksheets("WhichSheet") line

 

[Maklil]

thanks for this notice . I modified but doesn't show any changes without any error

Set wb = Workbooks.Open(OpenFileName, ReadOnly:=True)
    Set wsCopy = wb.Worksheets("Data") 
    Set wsDest = Worksheets("main")

 

[Alex Blakenburg]

What workbook is Worksheets("main") in ?
If it is the same as copy then make the line

Set wsDest = wb.Worksheets("main")

if not and it is in the same workbook as the code then where I have wb in the above use ThisWorkbook.

I modified but doesn't show any changes without any error

I can't tell from your comment if you are getting and error or not.

 

[Maklil]

if not and it is in the same workbook as the code then where I have wb in the above use ThisWorkbook.

the second file is existed in the same directory . I thought the second file can open by this line ,no need set inside the code

    OpenFileName = Application.GetOpenFilename 'Select and Open workbook

 

[Alex Blakenburg]

That line does not open the workbook, this line opens the workbook:

Set wb = Workbooks.Open(OpenFileName, ReadOnly:=True)

Is the Sheet Data and the Sheet Main in the same workbook ?
If not what workbook is "main" in ?

 

[Maklil]

If not what workbook is "main" in ?

do you mean the name ?

 

[Alex Blakenburg]

The code needs to know what workbook the sheet main is in.
Is it wb (same as sheet data) ?
Is it the workbook with the code in it (ThisWorkbook) ?
If not what is it because there are no other workbooks that are referenced in the code.

 

[Maklil]

Is it the workbook with the code in it (ThisWorkbook) ?

yes should be

 

[Alex Blakenburg]

Can you try changing this line:

Set wsDest = Worksheets("main")

To this:

Set wsDest = ThisWorkbook.Worksheets("main")