جرب هذا الشيء
الكود
Option Explicit
Sub transform_To_Table()
With Salim
Dim My_rg As Range
Dim I%, R%, Col%, M%: M = 5
Dim ro%: ro = 5
Col = .[M2]
.Range("e5").CurrentRegion.ClearContents
R = .Cells(Rows.Count, 1).End(3).Row
For I = 2 To Range("a2:a" & R).Rows.Count - 1
.Cells(ro, M) = .Range("a" & I)
M = M + 1
If M > Col + 4 Then M = 5: ro = ro + 1
Next
End With
End Sub
الملف مرفق
My_table.xlsm