وان كانت تريد التسلسل المكتوب مسبقاً فسيكون الكود كالتالي
Sub Abu_ahmed()
Range("A2:B10000").ClearContents
For i = 2 To Sheets.Count
For j = 2 To Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
Cells(Range("B" & Rows.Count).End(xlUp).Row + 1, 2).Value = Sheets(i).Cells(j, 1).Value
Cells(Range("B" & Rows.Count).End(xlUp).Row, 1).Value = Sheets(i).Cells(j, 2).Value
Next
Next
End Sub