Nhờ chỉnh sửa code lọc từ sheet tổng hợp ra nhiều sheet khác nhau (2 người xem)

[pho.lv90]

Mình có đoạn code và file mẫu này mong các anh chị giúp đỡ chỉnh sửa code để sao cho lọc kết quả từ sheet tổng hợp sang các sheet tương ứng mà:
- Chỉ lọc từ cột B đết cột G từ sheet tổng hợp sang các sheet tương ứng
Mình mày mò tìm kiếm mãi trên diễn đàn mà chưa giải quyết được ,mong các anh chị chỉnh sửa giùm.
Tks mọi người!!!

Sub Loc()
Dim Sh As Worksheet, Ws As Worksheet
Dim n, i As Integer
Set Ws = Sheets("TongHop")
n = ThisWorkbook.Sheets.Count
For i = 1 To n
TenSh = Sheets.Item(i).Name
Set Sh = Sheets(TenSh)
If TenSh <> "TongHop" Then
With Ws.Range("A1").CurrentRegion
.AutoFilter 1, "=" & TenSh
.Offset(1, 0).SpecialCells(12).Copy
Sh.Range("A2").PasteSpecial 3
.AutoFilter
End With
End If
Next
End Sub