Сортировать записи из поля ввода по статусу проекта в определенные области одного листа

Question

Попытка упорядочить данные по статусу проекта по трем различным разделам в пределах одного рабочего листа с разделительными заголовками, который подается из формы ввода.Моя форма ввода - это кнопка добавления записи, которая должна заполнять три полных листа.(Пытаясь найти «Входы», чтобы упорядочить данные, которые затем были бы введены в «Журнал отслеживания»)

Я попытался использовать оператор if, чтобы сначала найти исходную страницу ввода для поиска статуса проекта, который затем организовал бывходные данные под заголовками в отдельной таблице.

Dim al As Worksheet
Dim vc As Worksheet
Dim x As Long
Dim b As String

Set vc = ThisWorkbook.Sheets("Inputs")
Set al = ThisWorkbook.Sheets("Tracking Log")

x = al.Range("B" & Application.Rows.Count).End(xlUp).Row

'Filter inputs by project status into their project section (Closed)

        If vc.Cells.Value = "CLOSED PROJECTS" or vc.Cells.Value = "On Hold" or vc.cells.value = "Open" Then 

'al.Unprotect "Welcome123"

    al.Range("A" & x + 1).Value = Me.xxxx.Value
    al.Range("B" & x + 1).Value = Me.xxxx.Value
    al.Range("C" & x + 1).Value = Me.xxxx.Value
    al.Range("D" & x + 1).Value = Me.xxxx.Value
    al.Range("E" & x + 1).Value = Me.xxxx.Value
    al.Range("F" & x + 1).Value = Me.xxxx.Value
    al.Range("G" & x + 1).Value = Me.xxxx.Value
    al.Range("H" & x + 1).Value = Me.xxxx.Value
    al.Range("I" & x + 1).Value = Me.xxxx.Value
    al.Range("J" & x + 1).Value = Me.xxxx.Value
    al.Range("K" & x + 1).Value = Me.xxxx.Value
    al.Range("L" & x + 1).Value = Me.xxxx.Value
    al.Range("M" & x + 1).Value = Me.xxxx.Value
    al.Range("N" & x + 1).Value = Me.xxxx.Value
    al.Range("O" & x + 1).Value = Me.xxxx.Value
    al.Range("P" & x + 1).Value = Me.xxxx.Value
    al.Range("Q" & x + 1).Value = Me.xxxx.Value
    al.Range("R" & x + 1).Value = Me.xxxx.Value
    al.Range("S" & x + 1).Value = Me.xxxx.Value
    al.Range("T" & x + 1).Value = Me.xxxx.Value
    al.Range("U" & x + 1).Value = Me.xxxx.Value
    al.Range("V" & x + 1).Value = Me.xxxx.Value
    al.Range("W" & x + 1).Value = Me.xxxx.Value
    End If

Попытка упорядочить входы по статусу проекта, чтобы они находились под соответствующим заголовком на рабочем листе.(Например, Статус проекта = Закрытый должен идти под заголовком Закрытый проект, то же самое для Открытого проекта и в режиме ожидания)