Sub myCopy()
Application.ScreenUpdating = False
'---------------------------------------------------------------
Sheets("BangPLtheoVan").Range("B4:E" & Sheets("bangPLtheoVan").[B65536].End(xlUp).Row).ClearContents
Sheets("BangNhapTu").Range("C5:F" & Sheets("BangNhapTu").[C65536].End(xlUp).Row).Copy
Sheets("BangPLtheoVan").[B4].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'---------------------------------------------------------------
Sheets("BangPLtheoVan").Activate
Range("C3:E" & Sheets("BangPLtheoVan").[B65536].End(xlUp).Row).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
[C3].Select
Sheets("BangNhapTu").Activate
'---------------------------------------------------------------
Application.ScreenUpdating = True
End Sub