Help with a simple macro - copy data into a column

[Dexx]

Ok i need a simple macro that copies a range of data into a specified column specified by a combobox. I think it's very simple for experts
Thanx

[ska67can]

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

[jasoncw]

See if this works.

[Dexx]

Yes both works perfectly.
Thnx ska67can, thnx jasoncw :D