エクセルの処理方法についての質問です。

VBAです。

Sub main()
Dim a As Long
Dim b As Long


元のデータがあるシート = "Sheet1"
新しくデータを入れるシート = "Sheet2"

開始行 = 2

a = 開始行

Do Until Worksheets(元のデータがあるシート).Cells(a, "A") = ""
    b = 開始行
    f = 1
    Do Until Worksheets(新しくデータを入れるシート).Cells(b, "A") = ""
        If Worksheets(元のデータがあるシート).Cells(a, "A") = Worksheets(新しくデータを入れるシート).Cells(b, "A") Then
            Worksheets(新しくデータを入れるシート).Cells(b, Worksheets(新しくデータを入れるシート).Cells(b, "A").End(xlToRight).Column + 1) = Worksheets(元のデータがあるシート).Cells(a, "B")
            f = 2
            Exit Do
        End If
        b = b + 1
    Loop
    
    If f = 1 Then
        Worksheets(新しくデータを入れるシート).Cells(b, "A") = Worksheets(元のデータがあるシート).Cells(a, "A")
        Worksheets(新しくデータを入れるシート).Cells(b, "B") = Worksheets(元のデータがあるシート).Cells(a, "B")
    End If
    a = a + 1
Loop

End Sub

元のシートから 新しいシートに作成し直します。
新しいシートは クリアされている状態にしてください。
あと 開始行や それぞれのシート名は 変更して使用してください。

↓ の箇所です。

元のデータがあるシート = "Sheet1"
新しくデータを入れるシート = "Sheet2"
開始行 = 2