Option Explicit

Sub CopyOwnTab()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long

Lastrow = Sheets("LIST").Cells(Rows.Count, "B").End(xlUp).Row
Dim ans As String
    For i = 3 To Lastrow
    
    ans = Sheets("LIST").Cells(i, 2).Value
        Sheets("LIST").Rows(i).Copy Sheets(ans).Rows(Sheets(ans).Cells(Rows.Count, "B").End(xlUp).Row + 1)
        Sheets(ans).Range("$A$1:$G$1000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlYes
    Next

Application.ScreenUpdating = True
End Sub