Scadadude
11-19-2008, 08:49 AM
Hi guys what I am trying to do is perform a copy on one sheet and paste the values only (no calculations) to the next available row on another sheet. Here is what I have so far and it doesnt work.
Calculate
Range("D3:AK1244").Select
Selection.Copy
Sheets("Database").Select
Range("D3:IV" & Range("D1000").End(xlUp).Row).Copy Range("A65536").End(xlUp).Offset(2, 0)
Range("B2").Select
Sheets("GetNumbers").Select
Range("D3").Select
Application.CutCopyMode = False
Sheets("Sheet2").Select
Calculate
Range("D3:AK1244").Select
Selection.Copy
Sheets("Database").Select
Range("D3:IV" & Range("D1000").End(xlUp).Row).Copy Range("A65536").End(xlUp).Offset(2, 0)
Range("B2").Select
Sheets("GetNumbers").Select
Range("D3").Select
Application.CutCopyMode = False
Sheets("Sheet2").Select