Help with a simple macro - copy data into a column

Here is a very basic solution using the controls you set up.

Sub copy()

With Worksheets("Sheet1")
    .Range("D9:F11").ClearContents
    If .Cells(3, 10).Value = 1 Then
        .Cells(9, 4) = .Cells(5, 3)
        .Cells(10, 4) = .Cells(6, 3)
        .Cells(11, 4) = .Cells(7, 3)
    ElseIf .Cells(3, 10).Value = 2 Then
        .Cells(9, 5) = .Cells(5, 3)
        .Cells(10, 5) = .Cells(6, 3)
        .Cells(11, 5) = .Cells(7, 3)
    ElseIf .Cells(3, 10).Value = 3 Then
        .Cells(9, 6) = .Cells(5, 3)
        .Cells(10, 6) = .Cells(6, 3)
        .Cells(11, 6) = .Cells(7, 3)
    End If
End With

End Sub

ska