Hi BigH,

Give this a try.

Sub RangyRange()
Dim Lrow As Long
Dim Drng As Range
Lrow = Cells(Rows.Count, "A").End(xlUp).Row
Set Drng = Range("A2:A" & Lrow)
Drng.Copy Range("L1500").End(xlUp).Offset(1, 0)
End Sub

HTH
Regards,
Howard

"BigH" wrote in message
...
Hi there,

I have a varying range say A2:E40 (E40 varies every week), I would like to
copy this varing range to the end of another varying range say H2:L40 (L40
varies every week) is this possible????

1. Assume there might be embedded blanks.


tia BigH