Inserir em nova linha

[P4H]

Pessoal tenho a seguinte planilha e gostaria que apos, clicar em cadastro, cadastre como já esta ocorrendo, logo clico em limpar as coluna k é zerada, pra inserçao de novos valores, mas quando clico em cadastro deve inserir os valores na linha de baixo.

Sub ENVIAR()

'

' ENVIAR Macro

' LANÇA OS DADOS

'

' COPIA DADOS DAS SAPATAS

Range("K9:K17").Select

Range("K9:K17").Copy

' COLA ESPECIAL INVERTENDO A LINHA COM COLUNA NA PROXIMA LINHA VAZIA

Dim lLast As Long

With Range("p3") ' LINHA ONDE QUERO COMERÇAR

lLast = .Cells(1, Row.Count).End(xlToLeft).Row + 1 ' ESTE COMANDO ESTÁ ERRADO

Selection.Copy

.Cells(1, lLast).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End With

End Sub

Editado Março 27, 2014 por P4H

[P4H]

Acho que com um laço resolve o problema e que não estou conseguindo montar a estrutura, apos, inserir na linha esta pulando para a de baixo mais quando mando gravar grava na primeira novamente

[Jhonas]

exemplos

http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=86:last-used-row-last-used-column-vba&catid=79&Itemid=475

http://www.rondebruin.nl/win/s9/win005.htm

http://visualbasic.ittoolbox.com/groups/technical-functional/vb-vba-l/excel-selecting-next-row-in-excel-vb-3389990

abraço