Cần giúp đỡ về tách dữ liệu

[new_gel21]

Chào mọi người,

Mình đang vướng về việc lọc dữ liệu trùng từ bảng có sẵn.
Coi hướng dẫn thì mình viết thế này

Sheets("HR").Activate
lr = Sheets("HR").Cells(Sheets("HR").Rows.Count, filter_column).End(xlUp).Row
Header = "3:3"
my_arr = Application.WorksheetFunction.Transpose(Sheets("HR").Range(Cells(3, filter_column), Cells(lr, filter_column)))
  
For i = LBound(my_arr) To UBound(my_arr)
        d(my_arr(i)) = 1
Next i
    
For Each v In d.Keys()
        Sheets("HR").Range(Header).AutoFilter field:=filter_column, Criteria1:=TTVT
        Sheets("HR").Range("C4:C" & lr).Copy Sheets(TTVT).Range("A21")
Next v

Nhưng khi lấy nó không lọc theo điều kiện được. Nó lấy hết luôn!
Ai sửa giúp với @@