Macro to paste data into next open row.

[bubbataks]

Hello! Looking for some assistance with what is hopefully an easy macro.

Looking for a macro to copy the data in cells AA1, AB1 and AC1 into the next open row for columns B, C and D. The data is all on the same sheet, but the data in AA1, AB1 and AC1 will be changing.

Thank you!

 

[vcoolio]

Hello Bubbataks,

If the source and destination data is always fixed and on the same sheet, then perhaps the following is all that you need:-

Sub Test()

Sheet1.Range("AA1:AC1").Copy Sheet1.Range("B" & Rows.Count).End(3)(2)

End Sub

You may have to change the sheet references to suit yourself.

I hope that this helps.

Cheerio,
vcoolio.

 

[bubbataks]

That worked, thank you very much!

 

[bubbataks]

Actually, I'm sorry, but now I'm running into another error. The data in AA, AB and AC are all referenced from a different sheet. So cell AA1 has the formula "=Sheet2!G1" , cell AB1 has the formulate "=Sheet2G2" and so on.

When I run the macro, my data is returning "0" for each cell.

How do I get it to display just the text that was in AA1, AB1 and AC1?

Thank you!

 

[vcoolio]

Hello Bubbataks,

A small addition to the code should fix that for you:-

Sub Test()

Sheet1.Range("AA1:AC1").Copy
Sheet1.Range("B" & Rows.Count).End(3)(2)[COLOR=#ff0000].PasteSpecial xlValues[/COLOR]

End Sub

Cheerio,
vcoolio.

 

[bubbataks]

Thank you! That worked!

 

[vcoolio]

You're welcome Bubbataks. I'm glad that I was able to help.

Cheerio,
vcoolio.