Excel - uma macro para copiar e colar dados na próxima célula em branco

Questão

Eu tenho duas folhas em uma pasta de trabalho. Sheet1 é para resumo e Sheet2 é para os dados brutos. Preciso atualizar / inserir / copiar dados na Planilha2 para Planilha1. Abaixo está o código de macro de exemplo:

 Sub Summarize () Range ("A6: AT6"). Selecione Selection.Copy Sheets ("ImprovementLog"). Selecione Range ("B283"). Selecione Selection.PasteSpecial Paste: = xlValues, Operação: = xlNone, SkipBlanks: = _ False, Transpose: = Falso Alcance ("B283"). Selecione End Sub 

O código acima está funcionando, mas toda vez que eu altero os dados na Planilha2, a Planilha1 apenas substitui seus dados. O que eu preciso é toda vez que eu alterar os dados na Planilha2, ela deve ser adicionada (anexar) na Planilha1.

Solução

Você precisa saber a última linha usada. Aqui Range ("B283"). Selecione localiza a última célula usada na coluna B e selecione uma célula abaixo dela

 lMaxRows = Células (Rows.Count, "B"). End (xlUp) .Row Range ("B" e lMaxRows +1) .selecione 

Obrigado ao rizvisa1 por essa dica.