Transfering data to a new sheet

Sub CopyToNewSheet()

Dim temp, dataWb, resultSh As Worksheet
Dim newWB, supName As String
Dim lastRow, cellNos As Long
Dim i As Integer
    
    Application.DisplayAlerts = False
    
    Set dataWb = ActiveSheet
    Set temp = Worksheets.Add
    
    dataWb.Select
    If dataWb.AutoFilterMode Then
        Cells.Select
        On Error Resume Next
        dataWb.ShowAllData
        On Error GoTo 0
    End If
            
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    dataWb.Range("C1:C" & lastRow).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=temp.Range("a1"), Unique:=True
    'wsCrit.Range("C1:C" & lastRow).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=wsData1.Range("a20"), Unique:=True

        
    cellNos = temp.Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To cellNos
    
        supName = temp.Range("A" & i)
        
        If supName <> "" Then

            Set resultSh = Worksheets.Add
            resultSh.Name = supName
                        
            dataWb.Select
            Cells.Select
            
            If dataWb.AutoFilterMode = False Then
                Selection.AutoFilter
            End If
            
            Selection.AutoFilter Field:=3, Criteria1:="=" & supName, _
                        Operator:=xlAnd, Criteria2:="<>"
            
            lastRow = Range("a" & Rows.Count).End(xlUp).Row
            Rows("1:" & lastRow).Copy
            resultSh.Select
            resultSh.Paste
        End If
    
    Next i
    
    temp.Delete
    
    dataWb.Select
    If dataWb.AutoFilterMode Then
        Cells.Select
        dataWb.ShowAllData
    End If
Application.DisplayAlerts = False
End Sub