Excel - En makro til at kopiere og indsætte data i næste tomme celle

Problem

Jeg har to ark i en projektmappe. Sheet1 er for resumé og Sheet2 er til rå data. Jeg skal opdatere / indsætte / kopiere data i Sheet2 til Sheet1. Nedenfor er prøve makrokode:

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

Koden ovenfor virker, men hver gang jeg ændrer data i Sheet2, erstatter Sheet1 kun sine data. Hvad jeg har brug for, er hver gang jeg ændrer data i Sheet2, skal det tilføjes (tilføjes) i Sheet1.

Opløsning

Du skal kende den sidst anvendte række. Here Range ("B283"). Vælg finder den sidst anvendte celle i kolonne B, og vælg derefter en celle under den

 lMaxRows = Celler (Rows.Count, "B"). Slut (xlUp) .Row Range ("B" & lMaxRows +1) .select 

Takket være rizvisa1 for dette tip.