Separate the data from a table based on certain groups

[acsishere]

Dear Friends,

I have a worksheet with 10000 records. For example, entire data in ColA-ColZ.

In that, ColA-ColF - Personal Information; ColG-J Group1; ColK-N Group2; ColO-R Group3; ColS-U Group4; ColW-Z Group5.

I this case, the data to be copied into another sheet as follows:

1) the personal data should be copied repeatedly.
2) Each Group data should be copied next to personal data.
3) The group's name is mentioned at the top of the datasheet.

I have attached a sample workbook for your kind reference.

I hope someone will help me to solve this.

Thanks a lot in advance,
acsishere.

[StephenR]

This works for your example, but I'm not sure if other things such as the number of categories A/B/C/D varies. This code assumes not.

Sub x()

Dim c As Long, nLast As Long

Sheets("Datasheet").Activate
nLast = Cells(Rows.Count, 1).End(xlUp).Row - 2
c = 7
With Sheets("Separated")
    .Cells(1, 1).Resize(, 6) = Array("PER1A", "PER1B", "PER1C", "PER1D", "PER1E", "PER1F")
    .Cells(1, 7).Resize(, 4) = Array("A", "B", "C", "D")
    Do While Not IsEmpty(Cells(3, c))
        Cells(3, 1).Resize(nLast, 6).Copy .Cells(Rows.Count, 1).End(xlUp)(2)
        Cells(3, c).Resize(nLast, 4).Copy .Cells(Rows.Count, 7).End(xlUp)(2)
        c = c + 4
    Loop
End With

End Sub

[acsishere]

Respected Sir,

This is want exactly I need. You have done it.

Thanks a lot for your code.

acsishere.