Excel: una macro per copiare e incollare i dati nella cella vuota successiva

Problema

Ho due fogli in una cartella di lavoro. Foglio1 è per il sommario e Foglio2 è per i dati grezzi. Devo aggiornare / inserire / copiare i dati in Sheet2 a Sheet1. Di seguito è riportato il codice della macro di esempio:

 Sub Summarize () Range ("A6: AT6"). Seleziona Selection.Copy Sheets ("ImprovementLog"). Seleziona Range ("B283"). Seleziona Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: = _ False, Transpose: = False Range ("B283"). Seleziona End Sub 

Il codice sopra riportato funziona ma ogni volta che cambio i dati in Sheet2, Sheet1 sostituisce solo i suoi dati. Ciò di cui ho bisogno è ogni volta che cambio i dati in Sheet2, dovrebbe essere aggiunto (append) in Sheet1.

Soluzione

Devi conoscere l'ultima riga usata. Qui Range ("B283"). Select trova l'ultima cella utilizzata nella colonna B e quindi seleziona una cella al di sotto di essa

 lMaxRows = Cells (Rows.Count, "B"). End (xlUp) .Row Range ("B" e lMaxRows +1) .seleziona 

Grazie a rizvisa1 per questo suggerimento.