Copy Paste in Macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I reduce the coding involved in this statement.
FinalRow is just an integer value. Thanks you


Range("A2:D" & FinalRow).Select
Selection.Copy
Range("E2:H" & FinalRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
 
How do I reduce the coding involved in this statement.
FinalRow is just an integer value. Thanks you

Range("A2:D" & FinalRow).Select
Selection.Copy
Range("E2:H" & FinalRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
Click to expand...

try this:
Range("A2:D" & FinalRow).Copy Range("E2:H" & FinalRow)

or:
Range("E2:H" & FinalRow).Value = Range("A2:D" & FinalRow).Value

--
Regards
Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Loop to copy paste rows base on table arrays 0
Copy paste without selecting sheet or range 2
1st attempt vba-how do i whatnext in this sub 1
UserForm R1C1 problem 4
More Worksheet and Copy Pase help 1
Failed to add footer one of work sheet, Thanks 3
Different Results from the Same Macro 2
VBA Copying/Pasting problem when data is filtered 1

Back
Top