How to Copy range in another workbook to present position in active workbook

I have a workbook, Book1,  with a range of cells which I want to copy to the active workbook, Book2, in the present position.
Both workbooks are open, but Book2 is active and the active cell is already determined by VBA.
I prefer that the focus does not shift to the source workbook, but only refer to the range in that workbook.
I want to use VBA. Can you help with the code please.
Fritz PaulAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Jorge PaulinoConnect With a Mentor IT Pro/DeveloperCommented:
You could do something like this:

Dim rngSource As Range
Set rngSource = Workbooks("SourceBook").Worksheets("Sheet1").Range("a1:a10")
rngSource.Copy ActiveCell

Open in new window

0
 
gowflowCommented:
What do you mean by 'present position' ??
gowflow
0
 
gowflowCommented:
if WS1 is workbook1 Sheet1 and WS2 is workbook2 Sheet1 or any sheet then to copy say range A1:B6 in Book1 then

WS1.range("A1:B6").copy WS2.activecell

will copy the Range A!:B6 fm Book1 to the Activecell in Book2

gowflow
0
 
Fritz PaulAuthor Commented:
Thanks!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.