Selecting blocks of data with VBA end.xldown and end.xltoright

[mudshark]

XX_ID_A
Site	Name	Manager
1	Fred	9
1	Mary
1	Jack	9
1	Jill
XX_ID_B
System	Plan	Fname	Lname	Man	Note
1	TAD	John	Smith	6	Service
1	TAD	Jerry	Jones	6	HR
1	TAC	Alan	Berry	7
1	TAB	Mary	Dawson		Sales

<tbody>
</tbody>

Hi
I have some VBA that selects blocks of data from one main sheet based on an identifier in column A and
copies these to separate sheets
But the data can be different sized ranges and non-contiguous data in the right-most columns.
(Left-most column is always filled.)
So using the following code doesn't always select all the data.
After selecting the cell below the XX_ID identifier i then try to select the whole block.

Set ACTrng = Range(Selection, Selection.End(xlDown).End(xlToRight))

Similar issue if I change the order (xlToRight then xlDown)

a simple example would look something like above.

How do i approach this..
thanks in advance...

 

[mudshark]

I may have stumbled on the answer to my own question ??? ... select in 2 steps....

    Set TopRowrng = Range(Selection, Selection.End(xlToRight))
    Set ACTrng = Range(TopRowrng, Selection.End(xlDown).End(xlToRight))

Is that a robust method ?

 

[DanteAmor]

Try this

Sub test()
  Dim rng As Range
  For Each rng In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Areas
    rng.EntireRow.Copy
  Next
End Sub

With the above you can copy the block.
Where do you want to paste it, on a new sheet or does the sheet already exist?