Hente data fra flere ark til et

Kan jeg få lidt hjælp til dette?
i Ark1 har jeg følgende :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
LastRow = Cells(65356, 3).End(xlUp).Row
Worksheets("Select_number_of_pieces").Range("A2:I101").Delete
For Each Shape In Worksheets("Select_number_of_pieces").Shapes
Shape.Delete
Next
Y = 2
For x = 2 To LastRow
If Cells(x, 1) = "X" Or Cells(x, 1) = "x" Then
  Range(Cells(x, 2), Cells(x, 10)).Copy Destination:=Worksheets("Select_number_of_pieces").Cells(Y, 1)
  Y = Y + 1
End If
Next
End If
End Sub

den smider det også over i  Select_number_of_pieces  , men nu har jeg udvidet med flere Ark op til 19 , når jeg afkrydser et emne i feks. ARK2 og Ark 10 så skulle de gerne samle sig  i Arket  Select_number_of_pieces , men det er kun det første ark jeg afkrydser i der kommer over
er der noget hjælp at hente til dette ?

Mvh.  Finn