Inserir dados na planilha

[vbaLimoeiro]

Quero saber como posso fazer para inserir dados assim:

Tenho as células A5,B5,C5,D5,E5,F5,G5,H5,I5,J5,L5 (em uma mesma linha). Quando eu insiro dados nessas células, os mesmos devem ser gravados em células abaixo das mesmas sucessivamente. Isto é, nas células das linhas abaixo. Uso o evento "Enter".

Ex.:

A6,B6,C6,D6,E6,F6,G6,H6,I6,J6,L6 <---Essas são as linhas abaixo das células que ficarão congeladas. Isso deve ir até a última linha (65000);

A7,B7,C7,D7,E7,F7,G7,H7,I7,J7,L7

A8,B8,C8,D8,E8,F8,G8,H8,I8,J8,L8

..

.

Fico grato pela sua ajuda!!!

Editado Agosto 19, 2010 por vbaLimoeiro

[fercosmig]

não sei se te ajuda.. mas segue um exemplo para você percorrer as celulas de uma range

Sub teste()
    Sheets("Plan1").Select
    Dim linha As Integer
    linha = 7
    
    Dim coluna_inicial As Integer
    coluna_inicial = 65 ' letra A
    
    Dim coluna_final As Integer
    coluna_final = 76 ' letra L
    
    Dim x, y As Integer
    For y = linha To linha + 10
        For x = coluna_inicial To coluna_final
            Range(Chr(x) & y).Select
            Range(Chr(x) & y).Interior.Color = RGB(128, 255, 255)
            Range(Chr(x) & y).Value = Chr(x) & y
        Next
    Next
End Sub

[vbaLimoeiro]

fico grato, mas não é isso...

Quando eu insiro valores em células da linha 5 e clico em um botão, esse deve fazer com que esses valores sejam gravados uma linha abaixo, essa gravação vai até a última linha da planilha. Ok caro colega!!

Simples, mas para mim está complicado!!!

[kuroi]

mas é o codigo do fercosmig mesmo. so q ele fez da linha 7 ate a 17. é so você alterar pras linhas q você quer.

e tb não precisa mudar a cor da celula como ele fez, e tb acho q é perda de tempo selecionar a celula, fora isso é esse o codigo.