Macro copy and paste in next blank cellSolved/Closed

Question

Hi guys,
I need some helping in excel macro. I have two sheets in a workbook. Sheet1 is for summary and Sheet2 is for the raw data. I need to update/insert/copy data in Sheet2 to Sheet1. Below is the sample macro code:

Sub Summarize()

    Range("A6:AT6").Select
    Selection.Copy
       Sheets("ImprovementLog").Select
    Range("B283").Select
      Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       Range("B283").Select
    
End Sub

The code above is working but everytime I change data in Sheet2, the Sheet1 only replace its data. What I need is everytime I change data in Sheet2, it should be added (append) in Sheet1. Please help me.
Appreciate your help.


Many thanks and regards,
Fhernnet

Configuration: Windows 2000 / Internet Explorer 6.0

rizvisa1 · Accepted Answer

Not entirely sure about your copy part. How ever if you want to paste by appending then you need to know the last used row. Here
Range("B283").Select  
you are hard coding the row


this find the last used cell in column B and then select one cell below it
lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lMaxRows +1).select

Good boy · Answer

THanks buddy.... U definitely saved a day...

Streethawk · Answer

Awesome. Exactly what I was looking for. Worked perfectly. Thanks Riz

chibbols · Answer

I tried this and it worked if you only need to append a data once.

Please help me out. What macro code should I use so that everytime I click on a button after adding a data on a single cell it compiles to a list. I want the top of my worksheet to look like this on top:

Data: ___________ +

so everytime I put data on the space and click on +, the data will be added to a list...Pease help!

Macro copy and paste in next blank cell

4 responses

Similar discussions

Subscribe To Our Newsletter!