匹配2个工作表中的列并粘贴到第三个工作表

我有2个工作表（wb1和wb2）没有特定顺序的数字。 如果匹配，我需要在wb2列b中的电子邮件地址粘贴到列A中的工作表wb3。下面的代码只匹配数字，如果他们在两个工作表上的相同的单元格。 任何帮助是极大的赞赏。

Private Sub CommandButton2_Click() 'Merge Report button Dim foundCell As Range Dim strFind As String Dim fRow, fCol As Integer Dim wb1 As Worksheet Dim wb2 As Worksheet Dim wb3 As Worksheet 'Set sheets - wb1 is email list and wb2 is missed punch report, and wb3 is home page Set wb1 = Sheets("Sheet1") Set wb2 = Sheets("Sheet1 (2)") Set wb3 = Sheets("Home") 'Get find string strFind = wb1.Range("A1").Value 'Find string in column C of Sheet2 Set foundCell = wb2.Range("A1").Find(strFind, LookIn:=xlValues) 'If match cell is found If Not foundCell Is Nothing Then 'Get the row and column fRow = foundCell.Row fCol = foundCell.Column 'copy email from column b wb1.Range("B1").Copy 'paste in column a on home page wb3.Range("A1").PasteSpecial xlPasteValues 'Clear cache Application.CutCopyMode = False 'If not found, show message. Else Call MsgBox("No match was found. Clear form and start over with step 1.") End If End Sub