VBA code Copy sequence of numbers in different rows without duplicate

[Goalexcel]

I have searched to find out how to modify the below code to help me to:

1. Copy those number from column A until column I no exactly number of columns, and also the same no exactly number of rows. Data is sheet 1 until sheet 8 no exactly the sheets.
2. Copy those 4 continuous numbers to all down column A. maybe A25. Highlight those number colors.
3. Once use input box asking how many numbers I can enter 4 numbers to pick up.
4. Next copy more numbers until is full copy. No duplicates once choose the numbers See below image need the result.
5. 
6. This is the code that need to change

7. Sub CopySequenceNumberFromColumn()  Dim HowMany As Long, Cnt As Long, RandomIndex As Long
     Dim Tmp As Variant, Number As Variant
     HowMany = 4
     Number = Range("A1", Cells(Rows.Count, "A").End(xlUp))
     Randomize
     For Cnt = 1 To UBound(Number)
       RandomIndex = Int(Cnt * Rnd + 1)
       Tmp = Number(RandomIndex, 1)
       Number(RandomIndex, 1) = Number(Cnt, 1)
       Number(Cnt, 1) = Tmp
     Next
     Range("A25").Resize(HowMany) = Number
   End Sub