Macro para copiar "A" e mais n registros e outra folha

[The_Vicious]

Galera, tenho uma planilha mais ou menos assim

A 1

B 2

C 3

D 4

E 5

F 6

G 7

A macro que eu gostaria de fazer é com o seguinte objetivo:

Tenho que copiar cada registro de letra (A, B, C...) e pra cada registro de letra tem que conter todos os números, ou seja:

A

1

2

3

4

5

6

7

B

1

2

3

4

5

6

7

E assim por diante.

Sou novo em VBA e estou com essa dúvida.

Fiz o código aqui mas o código não está fazendo isso:

Sub copy_paste()
    Dim i As Integer
    Dim j As Integer

    For i = 1 To 9
        Cells(i, 1).Select
        Selection.Copy
        Cells(i, 3).Select
        ActiveSheet.Paste

        For j = 1 To 9
            Cells(j, 2).Select
            Selection.Copy
            Cells(j, 4).Select
            ActiveSheet.Paste
        Next j

    Next i
End Sub

Eu sei que é meio principante isso mas estou com problemas para fazer

[Visitante]

veja se ajuda

Sub copy_paste()
Dim LRa, LRc, i As Long
    LRa = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LRa
    LRc = Range("C" & Rows.Count).End(xlUp).Row
        If LRc = 1 Then LRc = -1
            Cells(LRc + 2, 3) = Left(Cells(i, 1), 1)
                Cells(LRc + 3, 3) = 1
            Cells(LRc + 4, 3) = 2
        Range(Cells(LRc + 3, 3), Cells(LRc + 4, 3)).AutoFill _
        Cells(LRc + 3, 3).Resize(LRa)
Next i
End Sub

[The_Vicious]

Exatamente isso!

Muito obrigado pela ajuda amigo

Abraços!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.