excel - マクロを使用して sheet2 にデータを入力する

Question

エクセル初心者です。シート 1 に基づいてシート 2 にデータを入力するマクロを作成しようとしています。シート 1 には次の列があります。 Name CustomName CustomeValue a Bay 11 a Site UK a Rack 3 b Site UK b Rack 2 C empty empty

シート 2 - 出力は次のようになります Name Bay Site Rack a 11 UK 3 b UK 2 c

行ごとに一致し、比較して選択的に入力するマクロを作成しようとしましたが、巨大な日付が来るとスクリプトがランダムに入力されます。

コードスニペット：

Sub populatingsheet2()

    x = 2
    y = 2 
    Sheet2.Cells(y, 1) = Sheet1.Cells(x, 1) 
    Do While x <= 4 

        If Sheet1.Cells(x, 1) = Sheet1.Cells(x + 1, 1) Then 

            ‘I want unique records 
            'MsgBox "Identical" 
            If Sheet1.Cells(x, 2) = "Bay" Then 
                Sheet2.Cells(y, 2) = Sheet1.Cells(x, 3) 
            End If 
            If Sheet1.Cells(x, 2) = "Site" Then 
                Sheet2.Cells(y, 3) = Sheet1.Cells(x, 3) 
            End If 
            If Sheet1.Cells(x, 2) = "Rack" Then 
                Sheet2.Cells(y, 4) = Sheet1.Cells(x, 3) 
            End If 

        Else: 'MsgBox "Not Identical" 
        End If 
        x = x + 1 
        y = y + 1 

    Loop 

End Sub