Quesiton on Macro to Move Info To Next Open Row

bubbataks

New Member
Joined
Mar 6, 2019
Messages
10
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,
 

Excel Facts

Save Often
If you start asking yourself if now is a good time to save your Excel workbook, the answer is Yes

mumps

Well-known Member
Joined
Apr 11, 2012
Messages
11,718
Office Version
  1. 2013
  2. 2010
Platform
  1. Windows
Try:
Code:
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

New Member
Joined
Mar 6, 2019
Messages
10
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

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
73,030
Office Version
  1. 365
Platform
  1. Windows
How about
Code:
Sheet1.Range("B" & Rows.Count).End(xlup).offset(1).resize(,3).Value = Sheet1.Range("AA1:AC1").Value
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
73,030
Office Version
  1. 365
Platform
  1. Windows
Glad we could help & thanks for the feedback
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,559
Messages
5,832,474
Members
430,136
Latest member
Asir Jefferson

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top