I need to know how to split a excel file in to sheets

Sub RunMe()
Dim lRow As Long

Sheets("Master").Select
lRow = Range("C1").End(xlDown).Row

For Each cell In Range("C2:C" & lRow)
    If cell.Value = 1 Then
        cell.EntireRow.Copy
        If Not SheetExists("1") Then Sheets.Add.Name = "1"
        Sheets("1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 2 Then
        cell.EntireRow.Copy
        If Not SheetExists("2") Then Sheets.Add.Name = "2"
        Sheets("2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If
    
    If cell.Value = 3 Then
        cell.EntireRow.Copy
        If Not SheetExists("3") Then Sheets.Add.Name = "3"
        Sheets("3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 4 Then
        cell.EntireRow.Copy
        If Not SheetExists("4") Then Sheets.Add.Name = "4"
        Sheets("4").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 5 Then
        cell.EntireRow.Copy
        If Not SheetExists("5") Then Sheets.Add.Name = "5"
        Sheets("5").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 6 Then
        cell.EntireRow.Copy
        If Not SheetExists("6") Then Sheets.Add.Name = "6"
        Sheets("6").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 7 Then
        cell.EntireRow.Copy
        If Not SheetExists("7") Then Sheets.Add.Name = "7"
        Sheets("7").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 8 Then
        cell.EntireRow.Copy
        If Not SheetExists("8") Then Sheets.Add.Name = "8"
        Sheets("8").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 9 Then
        cell.EntireRow.Copy
        If Not SheetExists("9") Then Sheets.Add.Name = "9"
        Sheets("9").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

    If cell.Value = 10 Then
        cell.EntireRow.Copy
        If Not SheetExists("10") Then Sheets.Add.Name = "10"
        Sheets("10").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial
    End If

Next cell
        
Application.CutCopyMode = False
        
End Sub

Function SheetExists(SheetName As String) As Boolean
SheetExists = False
On Error GoTo NoSuchSheet

If Len(Sheets(SheetName).Name) > 0 Then
    SheetExists = True
    Exit Function
End If

NoSuchSheet:
End Function