How to Mach the two sheet with common column?

Public Sub Results()Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim sh3 As Worksheet
Dim lastrow As Long
Dim matchrow As Long
Dim lastcol1 As Long
Dim lastcol2 As Long
Dim i As Long


    Set sh1 = Worksheets("Sheet1")
    Set sh2 = Worksheets("Sheet2")
    Set sh3 = Worksheets("Sheet3")
    With sh2
    
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        lastcol1 = sh1.Cells(1, sh1.Columns.Count).End(xlToLeft).Column
        lastcol2 = .Cells(1, .Columns.Count).End(xlToLeft).Column
        .UsedRange.Copy sh3.Range("A1")
        sh1.Range("B1").Resize(, lastcol1 - 1).Copy sh3.Cells(1, lastcol2 + 1)
        For i = 2 To lastrow
        
            matchrow = Application.Match(.Cells(i, "A").Value, sh1.Columns(1), 0)
            sh1.Cells(matchrow, "B").Resize(, lastcol1 - 1).Copy sh3.Cells(i, lastcol2 + 1)
        Next i
    End With
End Sub