VBA Excel中的错误400

Question

I'm fairly new to vba and i don't understand why i'm getting error 400.

I'm having this list. When i push the button, this list has to be deleted, you have to select a file and then the new list will be copied from this file to the list. The list is always the same amount of columns (AJ), variable in length (rows) so in column K i can put a formula to test some data in the list according to data on another sheet.

The problem is with the vba-line

.Sheets("Blad1").UsedRange.Copy LijstBP.Sheets("Blad1").Range("A1")

To test my code, I used a list on sheet "Blad2". My code works perfect with all lists i'm trying to copy. (ofcourse i had to change the code to "Blad2") Now, the new lists are on sheet "Blad1". I only changed "Blad2" into "Blad1" and the error occurs...

Someone can spread a light on this? Thanks. My entire code is:

Sub ImporteerData()
Dim LijstBP As Workbook
Dim Bron As Workbook
Set LijstBP = ActiveWorkbook

Call WisHuidigeLijst

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Workbooks.Open .SelectedItems(1)
        With ActiveWorkbook
            .Sheets("Blad1").UsedRange.Copy LijstBP.Sheets("Blad1").Range("A1")
            .Close False
        End With
    End If
End With
'Formule kopiëren
Set LijstBP = ActiveWorkbook
Range("K3").FillDown
End Sub

Private Sub WisHuidigeLijst()
Dim laatsteRij As Integer

laatsteRij = Cells(3, "A").End(xlDown).Row
ActiveSheet.Range("A1").Select

Range("A1:J" & laatsteRij).Value = ""
End Sub

Answer 1

I just solved the problem: My collegue, who makes the lists that i need to import, did something wrong: he created a list from columns AI instead of AJ. By creating a new list from AJ, the whole thing works. My apologies for bothering with such stupidity :-) Last week, i didn't notice this. Thanks to all for trying to help me. –