Sub DesignAUTO1()
Application.ScreenUpdating = False
Range("A5:D5000").ClearContents
Dim t()
ReDim t(1 To 50000, 1 To 4)
y = 4
'loop 1
For i002 = 1 To 57
'loop 2
For i003 = 1 To 20
'loop 3
For i004 = 1 To 5
'loop 4
For i005 = 1 To 6
y = y + 1
t(y, 1) = i002
t(y, 2) = i003
t(y, 3) = i004
t(y, 4) = i005
Next
Next
Next
Next
[A5].Resize(UBound(t), 4) = t
Application.ScreenUpdating = True
End Sub