Need vba to split data into multiple worksheets based on column of P & save wb with FY 16

Sub PUDO_Split()
    Dim rngUniques As Range, cell As Range
    Application.ScreenUpdating = False
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    With ActiveSheet.Range("A1").CurrentRegion
        .Columns("P").AdvancedFilter xlFilterInPlace, Unique:=True
        Set rngUniques = Range("P2:P" & .Rows.Count).SpecialCells(xlCellTypeVisible)
        If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
        For Each cell In rngUniques
            .AutoFilter Field:=16, Criteria1:=cell.Value
            Workbooks.Add xlWBATWorksheet
            Sheets(1).Name = "FY " & Format(Date, "yy")
            .Copy Range("A1")
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\FY" & Format(Date, " yy ") & cell.Value & " Rpt.xlsb", FileFormat:=50
            ActiveWorkbook.Close False
        Next cell
        .Parent.AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
    MsgBox rngUniques.Count & " files saved. ", , "Split Reports Complete"
End Sub

ActiveWorkbook.SaveAs "C:\Users\Admin\Desktop\VBA\F\New folder\FY" & Format(Date, " yy ") & cell.Value & " Rpt.xlsb", FileFormat:=50