Code Copy nhiều Sheet vào một Sheet

[Phương Phương mito]

Dear Các ANh chị và các bạn
Em có code copy lần lượt dữ liệu từ các Sheet và một Sheet như dưới

Sub Copy_TongHop()

Application.ScreenUpdating = True
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Bieudo"
Case Else
sh.Range(sh.[B11], sh.[B2500].End(3)).Resize(, 8).Copy
Sheets("Tonghop").[B65536].End(3)(2).PasteSpecial 3
End Select
Next
End With

Application.ScreenUpdating = False
End Sub

Nhưng giờ em muốn thêm một điều kiện là. Là nó lấy được tên của các sheet là Tháng 1. tháng2....như ảnh minh họa ạ

 

[VetMini]

Hấp tấp

 

[Phương Phương mito]

Dear Các ANh chị và các bạn
Em có code copy lần lượt dữ liệu từ các Sheet và một Sheet như dưới

Sub Copy_TongHop()

Application.ScreenUpdating = True
Dim sh As Worksheet
With Sheets("Tonghop")
.[B3:I5000].Clear
For Each sh In Worksheets

Select Case sh.Name
Case "Tonghop"
Case "Bieudo"
Case Else
sh.Range(sh.[B11], sh.[B2500].End(3)).Resize(, 8).Copy
Sheets("Tonghop").[B65536].End(3)(2).PasteSpecial 3
End Select
Next
End With

Application.ScreenUpdating = False
End Sub

Nhưng giờ em muốn thêm một điều kiện là. Là nó lấy được tên của các sheet là Tháng 1. tháng2....như ảnh minh họa ạ

View attachment 241879

Dạ, lúc em hỏi thì mạng có vấn đề em tưởng em chưa úp câu hỏi được ạ. Em sẽ cẩn thận hơn ạ