автозаполнение ячеек при выборе элемента в выпадающем списке из другой ячейки

Question

Я довольно новичок в VBA. Вот моя проблема: у меня есть выпадающий список в A4 с ListItem1 до ListItem7.Я хочу автозаполнить A6 t0 A11 при выборе ListItem1, ListItem2 и т. Д ... Я записал макрос:

    Range("A6").Select
    ActiveCell.FormulaR1C1 = "67"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "87"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "rty-u"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "kjty"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "erty"
    Range("A11").Select
    ActiveCell.FormulaR1C1 = "u"
    Range("A6:A11").Select
    Selection.ClearContents
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "9867"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "4567"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "ghty"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "3454"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "klii"
    Range("A6:A10").Select
    Selection.ClearContents
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "23567"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "9867"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "hjytrer"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "bnjg"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "987"
    Range("A6:A10").Select
    Selection.ClearContents
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "56456"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "9876"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "45678"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "mjtyu"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "nbvc"
    Range("A11").Select
    ActiveCell.FormulaR1C1 = "fgtre"
    Range("A6:A11").Select
    Selection.ClearContents
End Sub

Любая помощь?