macro to copy duplicate in column and paste in another sheet with its corresponding row

Try

Sub test()
    Dim dic As Object, i As Long, temp As String, e
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1
    With Sheets("sheet1").Cells(1).CurrentRegion
        For i = 2 To .Columns.Count
            temp = CStr(.Cells(2, i).Value)
            If Not dic.exists(temp) Then
                Set dic(temp) = .Columns(1)
            End If
            Set dic(temp) = Union(dic(temp), .Columns(i))
        Next
    End With
    For Each e In dic
        If Not IsSheetExists(e) Then
            Sheets.Add(after:=Sheets(Sheets.Count)).Name = e
　　　　End If
        With Sheets(e)
            .Cells.Clear
            dic(e).Copy .Cells(1)
            .Columns.AutoFit
        End With
    Next
End Sub

Function IsSheetExists(ByVal txt As String) As Boolean
    On Error Resume Next
    IsSheetExists = Len(Sheets(txt).Name)
    On Error GoTo 0
End Function

Hi Jindon,
maybe

For Each e In dic
    If Not IsSheetExists(e) Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = e
    With Sheets(e)
 ...