Option Explicit

Sub Get_Sort_Cells_Click()
    
    '宣言
    Dim wsOrg As Worksheet
    Dim wsResult As Worksheet
    Dim row As Integer
    
    '初期設定
    Set wsOrg = Worksheets("オリジナル")
    Set wsResult = Worksheets("結果")
    row = 3

    Do While wsOrg.Cells(row, 2) <> ""
        wsResult.Cells(row, 2) = wsOrg.Cells(row, 2)
        wsResult.Cells(row, 3) = wsOrg.Cells(row, 6)
        wsResult.Cells(row, 4) = wsOrg.Cells(row, 8)
        row = row + 1
    Loop
    
End Sub