Help code copy, lọc dữ liệu theo điều kiện vba (1 người xem)

[vuvantoan1978]

kính gửi các anh chị, mong các anh chị giúp mình đoạn code sau:
mình có 1 file exel trong đó có nhiều sheets, mình đã lập copy dữ liệu từ các sheets đó vào 1 sheet. sau đó mình làm điều kiện để lọc nếu thỏa mãn điều kiện thì copy dữ liệu sang sheet 2, vần đề nảy sinh ở phần chữ màu đỏ theo đoạn code dưới:
Sub capnhatdulieu()
Application.ScreenUpdating = False
Sheets("TH_Du_lieu").Select
Range("A8:CV300").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A8").Select
Sheets("VVToan").Select
Range("A8:CV300").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TH_Du_lieu").Select
ActiveSheet.Paste
Range("A8").Select
Selection.End(xlDown).Offset(1, 0).Select
Sheets("Bang_TH_gui_NIPI").Select
Range("A12:S300").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A12").Select
Sheets("TK_DTDTH").Select
ActiveSheet.Range("A8:R300").AutoFilter Field:=18, Criteria1:= _
"Chua co TK"
ActiveSheet.Range("A8:R300").AutoFilter Field:=14, Criteria1:="Kg"
Range("B9:R300").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Bang_TH_gui_NIPI").Select
ActiveSheet.Paste
Range("A12").Select
Selection.End(xlDown).Offset(1, 0).Select
Sheets("TK_DTDTH").Select
Application.CutCopyMode = False
ActiveSheet.Range("A8:R300").AutoFilter Field:=14, Criteria1:="M2"
Range("B9:R300").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Bang_TH_gui_NIPI").Select
ActiveSheet.Paste
Range("A12").Select
Selection.End(xlDown).Offset(1, 0).Select
Sheets("TK_DTDTH").Select
Application.CutCopyMode = False
ActiveSheet.Range("A8:R300").AutoFilter Field:=14
ActiveSheet.Range("A8:R300").AutoFilter Field:=18, Criteria1:= _
"Chua co DT"
Range("B9:R300").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Bang_TH_gui_NIPI").Select
ActiveSheet.Paste
Range("A12").Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("TK_DTDTH").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A8:$R300").AutoFilter Field:=18
ActiveWorkbook.Worksheets("Menu").Activate
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
Tức là nếu điều kiện lọc 1 mà không có (chẳng hạn cột 18 có 2 điều kiện lọc là Chua co TK và điều kiện 2 là Chua co DT, ý của mình là nều cột 18 chỉ có điều kiện là Chua có DT thì câu lệnh như thế nào để nó bỏ qua điều kiện 1 để chuyển qua lọc điều kiện 2)
Mong các bạn giúp đỡ vì mình chạy đến ĐK1 nó không có thì nó dừng chạy........