Copy & Paste 'Database' Then Set Array

[darkdimension]

The following code does not allow the 'CurrentRegion' to be selected and 'Set'. I believe it has to do with the pasting does not retain focus of the table that 'Database' creates.


Range("Database").Copy

Range("A2800").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'Selection.Sort Key1:=Range("M2801"), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Set Itemlist = Selection.CurrentRegion

If I sort (ie, remove comment) the list before I try to 'Set', all is fine.

How do I gain focus and set the 'Database' table to the array?

Thank you in advance.

 

[Norie]

Try changing Selection to Range("A2800").

 

[darkdimension]

Thank you for the response.

Made the change. It does not appear to be selecting the region.

     Range("Database").Copy
        
     Range("A2800").PasteSpecial Paste:=xlValues, _
                   Operation:=xlNone, SkipBlanks:=False, Transpose:=False

     'Selection.Sort Key1:=Range("M2801"), Order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom

      Set Itemlist = Range("A2800").CurrentRegion

 

[darkdimension]

Problem resolved...the region was not contiguous. Ugh, missed the obvious.

Thanks for the response, Norie and all that viewed.