How to Change Where A Macro is looking to Create Tabs

[GCLIFTON]

Need your help. Currently this Macro is looking in A2 to Filter and create Tabs. How can i change this to look in Column U and do the same thing.

Sub Tab_()

    Application.ScreenUpdating = False
    Dim ws1 As Worksheet
    Set ws1 = ActiveSheet
    Dim bottomA As Long
    bottomA = ws1.Range("A" & Rows.Count).End(xlUp).Row
    Dim c As Range
    Dim rng As Range
    Dim ws As Worksheet
    ws1.Range("A1:A" & bottomA).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("A1:A" & bottomA), Unique:=True
    Set rngUniques = ws1.Range("A2:A" & bottomA).SpecialCells(xlCellTypeVisible)
    If ws1.FilterMode Then ws1.ShowAllData
    For Each c In rngUniques
        Set ws = Nothing
        On Error Resume Next
        Set ws = Worksheets(CStr(c.Value))
        On Error GoTo 0
        If ws Is Nothing Then
                Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(c.Value)
                ws1.Rows(1).EntireRow.Copy ActiveSheet.Cells(1, 1)
        End If
    Next c
    For Each rng In rngUniques
        Sheets(CStr(rng)).UsedRange.Offset(1, 0).ClearContents
        ws1.Range("A1:I" & bottomA).AutoFilter Field:=1, Criteria1:=rng
        ws1.Range("A2:I" & bottomA).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets(CStr(rng)).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        If ws1.FilterMode Then ws1.ShowAllData
    Next rng
    ws1.Activate
    Application.ScreenUpdating = True
 End Sub

 

[GCLIFTON]

Correction Column P not U. Also could you tell me how to do it as well.