Lỗi Run-time error '1004' - VBA

[winnies]

Mình có 1 đoạn code khi chạy bị lỗi Run-time error '1004' - VBA. Mong mọi người giúp mình tại sao bị lỗi và lỗi như thế nào nhé

'Chuong trinh copy nhieu file vao 1 sheet

Sub copyfiles()
Dim chonFile As Variant
Dim i As Integer
Dim openfile As Workbook
Dim lastrow As Double
ThisWorkbook.Sheets(2).Range("A:AN").Delete
Application.ScreenUpdating = False
chonFile = Application.GetOpenFilename(Title:="Chon cac file can copy", filefilter:="Excel file (*.xls*), *.xls*", MultiSelect:=True)
For i = 1 To UBound(chonFile)
lastrow = ThisWorkbook.Sheets(2).Range("A" & ThisWorkbook.Sheets(2).Rows.Count).End(xlUp).Row
Set openfile = Workbooks.Open(chonFile(i))
openfile.Sheets(1).Range("A11").CurrentRegion.Copy
ThisWorkbook.Sheets(2).Range("A1" & lastrow + 1).PasteSpecial xlPasteValues
If i > 1 Then
ThisWorkbook.Sheets(2).Rows(lastrow + 1).Delete
End If
openfile.Close False
Next
Application.ScreenUpdating = True
End Sub

 

[SA_DQ]

Thoáng qua mình thầy câu lệnh này chưa ổn lắm:

ThisWorkbook.Sheets(2).Range("A:AN").Delete

Chí ít phải là

ThisWorkbook.Sheets(2).Range("A1:AN35").Delete

Hay

ThisWorkbook.Sheets(2).Columns("A:AN").Delete

[/php]