how to move data from one range to another without lossing values

First of all, I am tracking data via a SQL database that loads data every minute.  I query this data and then create worksheets in Excel.  The data is then formulated to give me information in an alarm type setup.  A report must be drawn from this data every 24 hours.  I have the formulas on each sheet and then I copy them into a report sheet.  How do I move the updated data down the worksheet as each interval is updated.?  How do I maintain the current values of each cell as the data is moved?  Please see attached file.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

NorieAnalyst Assistant Commented:
If you want to copy the values from a range of data and paste it below existing data you can use paste special.


Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).PasteSpecial xlPasteValues

Open in new window

If you want to paste in a specific location.

Worksheets("Sheet2").Range("A2").PasteSpecial xlPasteValues

Open in new window

I know this doesn't really fit in with your workbook but it's hard to determine which range/worksheets to copy from/paste to.
TomislavjSystem AdminCommented:
well there is 'paste special' option in excel to maintain values, formulas, formatting, etc from original cell(s) when pasting. is this what you need?
AngiehncockAuthor Commented:
Thanks for your input.  The data that is copies and pasted into the worksheet labeled Bun Report, is copies from the other sheets.   The data in these cells is updated every minute.  I want to set up an if statement in vba to copy and paste this informtion if the formulas are true.  If they are true, what is currently in the first 20rows of the bun report sheet will move  down to the next 20 rows and the new data will take the first 20 rows.  The data will always be different, if I program it correctly.  Right now the data being moved to the next 2nd 20 rows is being repeated from what is currently there because the formulas are moving rather than the value of each cell.  This process will go on for a 24 hour period. I am created a report to so alarms at specific times.  I hope this will give you more information.
10 Tips to Protect Your Business from Ransomware

Did you know that ransomware is the most widespread, destructive malware in the world today? It accounts for 39% of all security breaches, with ransomware gangsters projected to make $11.5B in profits from online extortion by 2019.

NorieAnalyst Assistant Commented:
If what formulas are true?

None of the formulas in the other worksheets actually return Truw (or False).

Also what data would you copy, there's thousands of rows on the other worksheets.

Is it actually the data in columns E and F from each worksheet you want to copy rather than the 'raw' data in the first 4 columns?
AngiehncockAuthor Commented:
That is correct,, columns E and F contain the formulas to determine whether there is a condition or not.  I have copied over this data to the Bun Report sheet.  The raw data contains the date that is needed for a timestamp.  As the raw data updates, the formulated columns E & F change according.   If The cells in column F are true, showing information , then this is to be copied over to the Bun Report sheet.  Each time a condition comes true, I want to move the current data on the Bun Sheet down and then copy the new data at the top of this sheet.  When I tried to do this the current data  on the Bun sheet didn't maintain the values,  instead it took on the values of the new data.  I need to copy the values of the columns E and F rather than the formulas, over to Bun Sheet.  As stated above, using special paste will fix this.  Thank you for your help.
AngiehncockAuthor Commented:

This has been very helpful.  The  1st example of pasting  works well, other than I need to have the most current data on the top of the list.  As data is updated the most current needs to be placed on top.  The data that is in this spot will shift to the next spot down,  and so on.

Is there a simple code structure that will enable this to happen, or is it best to set up copy and past from the bottom up?
NorieAnalyst Assistant Commented:
To place the new data at the top you would need to insert rows/cells to accommodate it.

Then you can use the code I posted to copy the data to the appropriate place.
AngiehncockAuthor Commented:
Prior to the copy code, insertion code would be used to create white space?
NorieAnalyst Assistant Commented:
You always know where the data is going to be placed, in row 2, so you just use that (with the column name) with the code I posted earlier for copying to a specific location.

Since there's already data there you want to push it down by inserting cells before you copy/paste.

You'll also have to copy the formatting.

This is just an example for copying from the Bun Oven worksheet.

I've based the no of rows to copy and the range to copy on the data that's already in the Bun Oven, not sure if that's correct.

Anyway, here's the code.
    Worksheets("Bun Report").Range("A2:B19").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("Bun Oven").Range("E1:F8").Copy
    Worksheets("Bun Report").Range("A2").PasteSpecial xlPasteValues
    Worksheets("Bun Report").Range("A20:B37").Copy
    Worksheets("Bun Report").Range("A2:B19").PasteSpecial xlPasteFormats

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
AngiehncockAuthor Commented:
Thanks you for your help.   This code works well for this application.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft SQL Server

From novice to tech pro — start learning today.