I tred this code and it works well but only for the items which don't contain blank rows between them. so the problem that I faced now is that arrange the output items in the same rwos with input items and I want to make this code or another code work with if there are a balnk rows between the items as it show in the pic above.

[VBA]Dim i As Long
For i = 1 To UsedRange.Rows.Count

For j = 1 To UsedRange.Rows.Count

Cells(i, 12).Value = Cells(j, 1).Value
Cells(i, 13).Value = Cells(j, 2).Value
Cells(i, 14).Value = Cells(j, 7).Value
Cells(i, 15).Value = Cells(j, 8).Value
Cells(i, 16).Value = Cells(j, 9).Value
Cells(i, 17).Value = Cells(j, 10).Value


Next j
Next i[/VBA]