Quesiton on Macro to Move Info To Next Open Row

[bubbataks]

I have the following macro set up to copy data from cells AA1, AB1 and AC1 into the next open row for columns B, C and D.

Code:

Sub Test()

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

End Sub

The problem I'm running into is that cells AA1, AB1 and AC1 have formulas to display the cell value from another sheet. So when I run the macro, all that displays in columns B, C and D are "0"s. How can I get it so that it will copy the text over?

Thank you,

 

[mumps]

Try:

Sub Test()
    With Sheets(1)
        .Range("AA1:AC1").Copy
        .Cells(.Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

 

[bubbataks]

I tried that script and it's now pasting the information, but it's appearing on a my Sheet2 when I need it to appear on my Sheet 1.

Thank you,

 

[Fluff]

How about

Sheet1.Range("B" & Rows.Count).End(xlup).offset(1).resize(,3).Value = Sheet1.Range("AA1:AC1").Value

 

[bubbataks]

Worked perfect, thank you!

 

[Fluff]

Glad we could help & thanks for the feedback