Sub Select_()
Dim mySQL As String, myConnect As String, myRecord As Object
Set myRecord = CreateObject("ADODB.Recordset")

myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
            "Data Source =" & ThisWorkbook.FullName & ";" & _
            "Extended Properties=""Excel 12.0;HDR=NO;"""
mySQL = "SELECT * FROM [Лист1$] as t INNER JOIN [Лист2$] as f ON t.[F2]=f.[F1]"
myRecord.Open mySQL, myConnect

With Worksheets("result")
    .Cells.Clear
    .Cells(1, 1).CopyFromRecordset myRecord
End With
myRecord.Close
Set myRecord = Nothing
End Sub