Macro copy data to next empty line (help please)

**pepijn** · 01-24-2012, 05:35 AM

Please find the attached file.
The data from the first sheet is set in one line in the second sheet.
With a macro I copy this line to the third sheet which should act as a small database of test values.
Please look at the macro, I want the macro to take the next emply row to copy to each time instead that one line is set in the macro.

Can anyone tell me how to do this?

Thanks

(ps for privacy reasons a x is in most cells)

**arlu1201** · 01-24-2012, 05:50 AM

If its a normal copy paste - use this code

 Worksheets("transfer").Range("A1:T1").Copy Worksheets("d-base").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

(i changed your entire code to the above code line).
If its a paste special use this code -

Worksheets("transfer").Range("A1:T1").Copy
    Worksheets("d-base").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False

**pepijn** · 01-24-2012, 06:46 AM

Hi arly1201,

I used the code, but I got debug messages.
Can you adjust the file and post it?
Or else send it to 01mercy@live.nl

Thanks

**arlu1201** · 01-24-2012, 06:58 AM

I didnt face any issues. I just edited your existing code with the 2ndcode i gave above and it worked fine. Do not use the first one as it gives errors (i guess you have formulae in your transfer sheet so its creating errors).

**pepijn** · 01-24-2012, 11:11 AM

You're right arlu I used it in the original file and there were some other macro's in the background or how you would call it, the file I used for this forum works fine.
Thanks a lot!