Xin trợ giúp sửa lỗi Code tách dữ liệu ra nhiều sheet

[thanhnam0119]

Xin chào các anh chị trong diễn đàn ạ!
Em có một file khi chạy code báo lỗi phần "ws.Name = cel.Value"
Nhờ anh chị giúp em xử lý lỗi và khi em tách sheet tính luôn tổng chân của các sheet ạ! em cảm ơn anh chị nhiều

Sub tach()
Sheet1.Activate
Dim lr As Long
Dim rng As Range, cel As Range
Dim ws As Worksheet
lr = Range("h" & Rows.Count).End(xlUp).Row
Set rng = Range("a1:g" & lr)
For Each cel In Range("n2:n12")
Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
rng.AutoFilter field:=1, Criteria1:=cel.Value
rng.SpecialCells(xlCellTypeVisible).Copy ws.Cells(1, 1)
ws.Name = cel.Value
ws.UsedRange.EntireColumn.AutoFit
Next cel
rng.AutoFilter
Set ws = Nothing: Set rng = Nothing: Set cel = Nothing
End Sub

 

[Maika8008]

Nó ghi từ dòng trống đầu tiên sau vùng dữ liệu thì làm sao đè lên dl cũ được. Nếu đè thì làm sao gộp được nhiều file, khi đó dữ liệu chỉ là của file cuối thôi sao!?