Excel中的Vlookup VBA代码，不在正确的单元格中复制数据（只需在我的代码中做一个小修复）

Question

I need a little help with fixing the VBA code that I have written. Question:

I have an excel file with 3 columns on sheet1 ("Name", "ID" and "Name Data"): "Name Data" is a blank column.

Name        ID      Name Data
Albert      4235 
John        4237 
Robert      4239 
Micky       4241 
Minnie      4243 
Donalid     4245 
Edited      4247 
Goofy       4249 

On sheet 2, there is a similar ID column with only one ID: eg:

ID
4243

I have the vlookup code to match the ID value on sheet2 (in this eg, that would be "4243") with ID value on sheet 1 and copy the name associated with that ID to "Name data" of sheet1. The final result should look like this:

Name       ID    Name Data
Albert    4235 
John      4237 
Robert    4239 
Micky     4241 
Minnie    4243     Minnie
Donalid   4245 
Edited    4247 
Goofy     4249

Issue: The issue with this code is that it copies the name onto first cell under "Name data". Eg: it does the following:

Name      ID      Name Data
Albert    4235     Minnie
John      4237 
Robert    4239 
Micky     4241 
Minnie    4243 
Donalid   4245 
Edited    4247 
Goofy     4249

The name "minnie" should get copied on 5th row under "Name data" and not on 1st row (excluding heading rows)

Can anyone please suggest me what to fix in the code?

Thanks a ton!

Here is the code:

Sub lookup()
x = 2
Set rng1 = Worksheets("Sheet1").Range("b4:b8")
Set rng2 = Worksheets("Sheet2").Range("A2:A2")
For Each c1 In rng1
For Each c2 In rng2
If c1.Value = c2.Value Then
Worksheets("sheet1").Cells(x, 3).Value = c2.Value
If c1.Value <> c2.Value Then
Worksheets("Sheet1").Cells(x, 3).Value = Worksheets("Sheet1").Cells(x, 3).Value
x = x + 1
End If
End If
Next
Next
End Sub

I know that it has something to do with this line:

Worksheets("sheet1").Cells(x, 3).Value = c2.Value

but I am not able to figure out what.

Answer 1

I finished up with the following code:

Sub lookup()

Set rng1 = Worksheets("sheet1").Range("B2:B19")
Set rng2 = Worksheets("sheet2").Range("A2:A2")

For Each c1 In rng1
    For Each c2 In rng2
        If c2.Value = c1.Value Then
            Worksheets("sheet1").Cells(c1.Row, 3).Value = Worksheets("sheet1").Cells(c1.Row, 1).Value
        End If
    Next
Next

End Sub

Your corrected file is shared: https://www.dropbox.com/s/0nsr1iuwnzt1s1x/VlookupVBA.xlsm