VBA Excel - 删除重复值并逐行重新排列非重复数据

问：

我正在尝试组织从 A17 到 C30 开始的数据集

预期结果

我无法删除或插入任何行或列或过滤器来完成此任务。它会影响所有其他数据。
只能复制和粘贴

我尝试了下面的代码，但是我被困在重新排列空数据上。
因为我无法删除或过滤数据。我有凝灰岩时间来实现这一目标。请寻求您的帮助！

Sub ClearRowValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' Set the worksheet where your data is located
    Set ws = ThisWorkbook.Sheets("INPUT")
    
    ' Find the last row in column A with data
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Loop through rows from the bottom to the top
    For i = lastRow To 17 Step -1 ' Start from the second last row and move upwards
        If ws.Cells(i, 1).Value = ws.Cells(i - 1, 1).Value Then
            ' If the current Doc. No. is the same as the previous row, clear the current row
            ws.Cells(i, 1).ClearContents
            ws.Cells(i, 2).ClearContents
            ws.Cells(i, 3).ClearContents
        End If
    Next i
End Sub