今天工作是对比参考表和表格2数据相同，然后依照参考表，填入表3
初步拟写

Sub 实验1()
Dim Renfernce As String
Dim Target As String
If Worksheets("Sheet2").Range("A10").Value = Worksheets("Sheet1").Range("A10").Value Then
Worksheets("sheet3").Range("A10").Value = Worksheets("Sheet1").Range("A10").Value
End If

End Sub
同一个工作簿中间对于相同内容，自动填充的代码该怎么编写？
A列材料名称，B列单价。其中A列数据有重复，怎么样让数据自动填充？