Скопировать несколько строк в другой лист на основе ячейки vaue

Question

У меня более 150 категорий, и я ввожу данные в Excel. Теперь мне нужна ваша помощь. Если я вхожу в какую-либо категорию в столбце, Excel должен проверить, есть ли на листе название этой категории. Если да, то он должен скопировать всю строку в следующую пустую строку этого листа, и если он не найдет этот лист, он должен создать лист с именем этой категории, а затем скопировать всю строку в следующую пустую строку этого вновь созданного листа. , Является ли это возможным? Большое спасибо заранее за вашу помощь. Я использую этот код для копирования всей строки на другой лист. Есть ли способ обновить его, чтобы он соответствовал моим требованиям?

Sub CopyRowBasedOnCellValue()
   Dim xRg As Range
    Dim xCell As Range
    Dim A As Long
    Dim B As Long
    Dim C As Long
    A = Worksheets("Sheet1").UsedRange.Rows.Count
    B = Worksheets("Sheet2").UsedRange.Rows.Count
    If B = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then B = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & A)
    On Error Resume Next
    Application.ScreenUpdating = False
    For C = 1 To xRg.Count
        If CStr(xRg(C).Value) = "Done" Then
            xRg(C).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & B + 1)
            B = B + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub