LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 812
Default copy last row with formulas and paste into next row same sheet

Replace:
Range("A533:AY533").Select
Application.CutCopyMode = False
Selection.Copy

Range("A533").Select


With:
iEnd = Range("A65536").End(xlUp).Row - 1
Range("A" & iEnd & ":AY" & iEnd).Select
Application.CutCopyMode = False
Selection.Copy
Range("A" & iEnd).Select

I didn't test this. I believe the - 1 is needed because your earlier
code put something in row 534, but maybe not.

Hth,
Merjet


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy and Paste formulas GG Excel Discussion (Misc queries) 1 October 30th 08 05:36 AM
Copy/Paste formulas BobG Excel Discussion (Misc queries) 3 February 18th 05 05:11 PM
Copy & Paste formulas Urgent Excel Programming 3 January 25th 05 10:47 PM
copy and paste formulas Jim Excel Worksheet Functions 4 January 14th 05 06:17 PM
Copy & Paste without the formulas Steven Cheng[_2_] Excel Programming 2 July 31st 03 09:43 PM


All times are GMT +1. The time now is 01:39 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"