Помогите, пожалуйста!

[Romuald]

Всем добрый день!!
Помогите, пожалуйста с макросом!
В sheet-e1 пример расположения кодов у меня в таблице:
стоит код, под ним стоит номер группы(LS..), под ним пустая ячейка.
Следующая ячейка- другой номер, потом опять группа и пустая ячейка.
И так далее.
Как макросом сделать следующее? :
Я выделяю диапазон (например D9:D38)
макрос в этом выделенном диапазоне повторяет коды в следующих ниже двух ячейках , а рядом , в колонке слева ставит буквы (к) и (а). Как пример, как это должно выглядеть , в Sheet2
Заранее благодарю

[Romuald]

В Sheet2 я ошибся : коды остаются в выделенном диапазоне, т.е. в колонке D а в колонке С - буквы "к" и "а"

[SAS888]

Выделите требуемый диапазон и выполните следующий макрос:

Sub Main()
    Dim i As Long, c As Long
    Application.ScreenUpdating = False
    c = Selection.Column
    For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1 Step 3
        Cells(i + 1, c) = Cells(i, c): Cells(i + 2, c) = Cells(i, c)
        Cells(i + 1, c - 1) = "k": Cells(i + 2, c - 1) = "a"
    Next
End Sub

Обязательные условия:
1. Выделять диапазон не более чем в 1 столбец.
2. Выделенный диапазон не должен быть в столбце "A" (т.к. слева от него сложно что-либо вставить).

[Romuald]

Спасибо большое!!