Copy Down Formulas

DaleKeel

Board Regular
Joined
Sep 11, 2019
Messages
56
Office Version
  1. 2013
Platform
  1. Windows
I have a Macro that copies the range of A7:M8 on sheet1 to the first empty rows (bottom) on sheet "ORDERS"
Sub COPYTOFIRSTEMPTYROW()
'
' COPYTOFIRSTEMPTYROW Macro
'
'
Range("A7:M8").Select
Selection.Copy
Sheets("ORDERS").Select
Range("A1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Then I go to the sheet named "ENTERHERE" where I have formulas in the last row that pulls the information from different cells of rows in the worksheet "ORDERS"
Right now I manually highlight the last row of ENTERHERE from A:AE and pull down the highlighted area two rows
to copy down (?) the rows that I just pasted in the ORDERS sheet.
and the information that I pasted on ORDERS magically appears.
It would be A LOT of time savings if I had one macro to do both.
Please help if you have the time.
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
This ((Sub Macro4())) is sorta what I want. But each time I run this macro the macro will only copy down row Range("A356:S356").Select
two rows down.
What I want the macro to do is find the last row each time I run the macro and copy it down two rows

Thanks for looking at my problem


Sub Macro4()
'
' Macro4 Macro
'
'
Range("A356:S356").Select
Selection.AutoFill Destination:=Range("A356:S358"), Type:=xlFillDefault
Range("A356:S358").Select
End Sub
 
Upvote 0
A little confusing, but is this what you want ???

VBA Code:
Sub MM1()
Dim lr As Long
lr = Sheets("ORDERS").Cells(Rows.Count, "A").End(xlUp).Row
Range("A7:M8").Copy Sheets("ORDERS").Range("A" & lr + 2)
End Sub
 
Upvote 0
That is what I thought I wanted but that does not put the cells on the other sheet where they need to be.
The Sub Macro4() is actually more of what I want.
I will be executing the macro on the Orders sheet.
On the ENTERHERE sheet I want the macro to find the last row with data (Range("A356:S356") and copy the row down two rows
every time I execute the macro
This will bring in the new data that I put in the last two rows on the ORDERS sheet. I put new data in the last two rows of the order sheet many times a day.
 
Upvote 0

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

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
Back
Top