Tenho um botão em uma planilha que, quando pressionado, deve permitir que o usuário abra um arquivo, copie as colunas A-G da planilha "Dados" e cole os dados dessas colunas na planilha atua

Tenho um erro lógico no código; é executado, mas cola a seleção no lugar errado.

Estou tendo problemas para referenciar as duas pastas de trabalh

Aqui está o meu código:

Sub Button1_Click()
    Dim excel As excel.Application
    Dim wb As excel.Workbook
    Dim sht As excel.Worksheet
    Dim f As Object

    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show

    Set excel = CreateObject("excel.Application")
    Set wb = excel.Workbooks.Open(f.SelectedItems(1))
    Set sht = wb.Worksheets("Data")

    sht.Activate
    sht.Columns("A:G").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste

    wb.Close
End Sub