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

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