• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Macro to continously copy and paste without erasing previous data

I

Injinia

Member
Hi


The macro below copies the first round of values, then on running it again it copies over the previously copied values. How do I get it to continuously copy the values & number formats to the next blank cell on column A in sheet 1, instead of copying over already existing data


-Injinia


Sub TransferData()

Dim LastRow As Integer


'Where is the last cell with data?

LastRow = Worksheets("Sheet 1").Range("A65536").End(xlUp).Row


'Transfer data

Sheets("accuracy").Range("B23:L29").Copy

Worksheets("Sheet 1").Cells(LastRow + 1, "A").PasteSpecial xlPasteValuesAndNumberFormats

End Sub
 
Please see your previous thread:

http://chandoo.org/forums/topic/copy-cells-with-formulas-and-paste-values
 
You must log in or register to reply here.
Back
Top