Xin sửa giúp code

[nttuan0808]

Nhờ ace sửa giúp code in tự động các sheets theo listBBNT, mình mới viết code mà không chạy được từ 1 đến hết danh sách. Yêu cầu là:
1/ in các sheet theo điều kiện: ví dụ gặp điều kiện vệ sinh (VS) bên listBBNT thì lấy sheets Biên bản "vệ sinh" để in, gặp điều kiện khác thì in theo loại Biên bản đó
2/ tuần tự chạy list và in các biên bản con tương ứng, để chỉ việc lấy và đóng tập.
Trình độ hạn chế nến mãi không tự xử được, xin các cao nhân trợ giúp ạ! Help!

 

[nttuan0808]

Sub YCNT()
Dim I As Integer
Dim j As Integer
Dim k As Integer
Dim n As Byte
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim counter As Long
counter = ActiveWorkbook.Worksheets.Count - 1


Dim xCRg As Range
Dim Lr As Long

Application.DisplayAlerts = False
Set ws1 = ThisWorkbook.Sheets(3)
Lr = Sheets(3).Range("a1").End(xlDown).Row
Set xCRg = Application.Sheets(3).Range("a1:a" & Lr)

If n <= counter Then
n = 1
Set ws = ThisWorkbook.Sheets("sheet" & n)
On Error Resume Next

With ws1

For k = 2 To Lr
If ws1.Cells(k, 2) = "VS" Then
For Each ws In ThisWorkbook.Sheets
ws.Cells(3, 12).Value = ws1.Cells(k, 9).Value
ws.PrintOut preview = False
Next ws
Else: End If
Next
End With

n = n + 1

Else: End If

End Sub