We help IT Professionals succeed at work.

How to merge varying numbers of rows from two worksheets to appear on a single worksheet with a blank row to separate the data?

Steve Lowry
Steve Lowry asked
After running a macro to query a database that changes daily, I get two worksheets with formatted reports that may randomly vary between 10 and 15 rows each day.  

I would like to copy the rows from Sheet1, and paste it below the last row of data on Sheet2, leaving a blank row between the two reports.  I would add this code at the end of the macro to generate the merged report.
Example-of-Merged-Reports.xlsx
Comment
Watch Question

View Solution Only

Engineer
CERTIFIED EXPERT
Commented: 
Sheet1.Range(Sheet1.Range("A1"), Sheet1.Range("A" & Rows.Count).End(xlUp)).Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(2)
Saqib Husain, SyedEngineer
CERTIFIED EXPERT

Commented:
This is a one line of code. On my screen it is showing as two lines.
Saqib Husain, SyedEngineer
CERTIFIED EXPERT

Commented:
Maybe better to have 
With Sheet1
    .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp)).Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(2)
End With


Steve LowryPrincipal Chemist

Author

Commented:
This works great.  Thanks for your help today.

Steve