Nhờ Ae xử lý hộ đoạn code nay với, copy báo lỗi sheet2 (1 người xem)

[TuanYM]

Sub cop_pee()
Dim wb1 As Workbook
Set wb1 = Workbooks.Open("C:\data\Baocao.xls")
Cells.Select
Selection.Copy
Sheets("Baocao").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sheet2").Sheets
End Sub

 

[aviaiva]

Sub cop_pee()
Dim wb1 As Workbook
Set wb1 = Workbooks.Open(