Sub Chietxuat()
Dim xlsxFilePath As Variant
Dim xlsxWorkbook As Workbook
Dim xlsmWorkbook As Workbook
Dim Sh As Worksheet
Dim Wb As Workbook
Dim Lr&
xlsxFilePath = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")
Set Wb = ActiveWorkbook
Set xlsxWorkbook = Workbooks.Open(xlsxFilePath)
Set Sh = xlsxWorkbook.Sheets("Sheet1")
Lr = Sh.Cells(1000000, 1).End(xlUp).Row
Set Rng = Union(Sh.Range("A:A" & Lr), Sh.Range("D:G" & Lr), Sh.Range("I:K" & Lr), Sh.Range("P:W" & Lr))
Rng.Delete
Sh.Range("A:G" & Lr).Copy Wb.Sheets("Sheet1").Range("A1")
xlsxWorkbook.Close False
End Sub
