Copy and Paste Special Dynamic Range

[BigH]

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

[L. Howard Kittle]

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" <[email protected]> wrote in message
news:[email protected]...
> 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
>