I want to take data from another Workbook into the Master File

[amo]

I want to take data from another Workbook into the Master File
For the data taken ... the columns are not the same ... and only a few columns are taken
so I have a copy paste idea per column ....

However, if you copy a lot of columns, it is very unlikely if I copy and paste per column
Is there a more practical way?

and when I run it, an error also appears ... but if clicked OK ... it still runs

this my code

Sub copy()
    Dim FileToOpen As Variant
    Dim OpenBook As Workbook
    Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename()
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("A1:A2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("B2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("B1:B2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("C2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("E1:E2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("E2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("C1:C2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("F2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("D1:D2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("G2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("F1:F2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("H2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("H1:H2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("H2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("I1:I2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("I2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("J1:J2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("J2").PasteSpecial xlPasteValues
        OpenBook.Sheets(1).Range("H1:H2000").Copy
        ThisWorkbook.Worksheets("Sheet1").Range("J2").PasteSpecial xlPasteValues
        OpenBook.Close False
        

        
        
    End If
    Application.ScreenUpdating = True
End Sub

 

[amo]

Can You Help Me @DanteAmor hihi