cell is starting point of range of values

[ThomasOES]

Hello

How to place a large data block at a chosen cell

I know I can copy the range and paste it at the chosen location, but I would like to simply use

block = Range("BB1:CC50")
Range("A1").value=block

currently all I get is the first cell into A1. I would like the entire block to appear beginning at A1

Thanks

Tom

 

[Fluff]

How about

Sub Thomas0ES()
   Dim Ary As Variant
   Ary = Range("BB1:CC50").Value2
   Range("A1").Resize(UBound(Ary), UBound(Ary, 2)).Value2 = Ary
End Sub

or simply

   Range("BB1:CC50").Copy Range("A1")

 

[ThomasOES]

Thanks Fluff. I like the second one

Regards
Tom

 

[Fluff]

You're welcome & thanks for the feedback