Named Ranges

[LOSS1574]

Hi:

I need to combine two (2) different dynamic named ranges on two (2) worksheets into one range with a blank row inbetween the data on a new worksheet (worksheet 3)..

Any assistance is appreaciated

[mdmackillop]

Sub CopyRanges()
Range("DynRange1").Copy Sheets(3).Range("A1")
Range("DynRange2").Copy Sheets(3).Cells(Rows.Count, 1).End(xlUp).Offset(2)
End Sub

[LOSS1574]

Thanks how can i adust the code to add data in colums M:P in the worksheet 3?

Range("M1:P" & Rows.Count).End(xlDown) ??? Am I in the ballpark?

[Bob Phillips]

Surely, the name caters for that. 6 columns cover as many rows as one column.

[mdmackillop]

There is a potential problem if the first column is shorter than the others in a multi-column range. This revision should cater for that.

Sub CopyRanges()
Range("DynRange1").Copy Sheets(3).Range("M1")
Range("DynRange2").Copy _
Sheets(3).Range("M1").Offset(Range("DynRange1").Rows.Count + 1)
End Sub