Copy Table Range To Other Sheet

zotee98 · Jan 10th 2008

i need a macro that will copy the information from backup and backup2 from cells b7 to the end of the data set and copy it to the master sheet. i just dont know how search for the last unused row. thanks for the great help. the values on the backup sheets can change in numbers of rows.

**StephenR** · Jan 10th 2008

Re: Copy Sheet Data To Other Sheet

Are you overwriting or continuously adding to the bottom? This assumes former.

Code

Sub x()


Dim rng1 As Range, rng2 As Range


Set rng1 = Sheets("Backup").Range("B7").CurrentRegion ' assumes continuous block of data with nothing above B7
rng1.Copy Sheets("Master").Range("B6")
Set rng2 = Sheets("Backup2").Range("B7").CurrentRegion ' ditto
rng2.Copy Sheets("Master").Range("B" & Rows.Count).End(xlUp)(2)


End Sub

Display More

zotee98 · Jan 10th 2008

Re: Copy Sheet Data To Other Sheet

what would be the change for overwritting? - so yes i am overwritting

**StephenR** · Jan 10th 2008

Re: Copy Sheet Data To Other Sheet

I think it should be OK as it stands as it starts pasting at B6.

Copy Table Range To Other Sheet

Participate now!

Share