Split worksheet into multiple worksheets

Maybe like this:

    With wSheetStart
        For Each rCell In rRange
            strText = rCell
            .Range("A1").AutoFilter 1, strText
        
        'Clear sheet or create it if needed
            If Evaluate("ISREF('" & strText & "'!A1)") Then
                Sheets(strText).Cells.ClearContents
            Else
                Worksheets.Add().Name = strText
            End If
        
        'Copy the visible filtered range (default of Copy Method) and leave hidden rows
            .UsedRange.Copy Range("A1")
            Cells.Columns.AutoFit
         Next rCell
     End With