Creating new new worksheet from from a list

Sub Main()
    Dim rngToTest As Range, rngUnique As Range, rngCell As Range
    Dim wsNew As Worksheet
    
    Application.ScreenUpdating = False
    
    With Worksheets("Sheet1")
        Rows("1:1").Insert
        .Range("A1").Value = "Dummy header"
        'add header rows for Advanced Filter
        Set rngToTest = .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
        rngToTest.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("G1"), Unique:=True
        'copy the unique entries to another range (amend "G1" to suit)
        Rows("1:1").Delete
        'remove header rows
        Set rngUnique = .Range("G1:G" & .Cells(Rows.Count, "G").End(xlUp).Row)
        'establish a reference to the unique range and the range at its right
        For Each rngCell In rngUnique
            If Not SheetExists(rngCell.Value) Then
                Set wsNew = Worksheets.Add
                wsNew.Name = rngCell.Value
                'do stuff
            End If
            'add new sheet if not already present
        Next rngCell
        'loop through the unique range
    End With
    
    Application.ScreenUpdating = True


End Sub


Function SheetExists(strWSname As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets(strWSname)
    On Error GoTo 0
    If Not ws Is Nothing Then SheetExists = True
End Function

Option Explicit
Sub AdvFilter()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim wsNew As Worksheet
Dim rng As Range
Dim lr As Integer
Dim myRg As Range
Dim lw As Long


Set ws1 = Sheet1
Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 5)
lw = Range("A" & Rows.Count).End(xlUp).Row
ws1.Range("A2:A" & lw).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("T1"), Unique:=True
lr = Cells(Rows.Count, "T").End(xlUp).Row
Range("V1").Value = Range("A1").Value


For Each myRg In Range("T2:T" & lr)
Sheet1.AutoFilterMode = False
  ws1.Range("V2").Value = myRg.Value
  On Error Resume Next
    Set ws = ThisWorkbook.Worksheets(myRg.Value)
        If Err > 0 Then
            Set wsNew = Sheets.Add
            wsNew.Move After:=Worksheets(Worksheets.Count)
            wsNew.Name = myRg.Value
            Err.Clear
            rng.AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=ws1.Range("V1:V2"), CopyToRange:=wsNew.Range("A1"), Unique:=False
        Else
            Range("A:A").AutoFilter 1, myRg.Value
            Range("A2:E" & lr).SpecialCells(12).Copy Sheets(myRg.Value).Range("A" & Rows.Count).End(xlUp)(2)
            Sheet1.AutoFilterMode = False
        End If
Next
ws1.Columns("T:V").Delete
End Sub