Sub OTDarray()
Dim SE() As Variant
Dim LE() As Variant
Dim MRO() As Variant
Dim RE() As Variant
Dim Ach() As Variant
Sheet3.Activate
SE = Sheet3.Range(Range("A1").End(xlDown), Range("A1").End(xlToRight))
Sheet4.Activate
LE = Sheet4.Range(Range("A1").End(xlDown), Range("A1").End(xlToRight))
Sheet5.Activate
MRO = Sheet5.Range(Range("A1").End(xlDown), Range("A1").End(xlToRight))
Sheet6.Activate
RE = Sheet6.Range(Range("A1").End(xlDown), Range("A1").End(xlToRight))
ReDim Ach(1 To UBound(SE, 1) + UBound(LE, 1) + UBound(MRO, 1) + UBound(RE, 1), 1 To UBound(SE, 2))
Dim i, j As Integer
For i = 1 To UBound(SE, 1)
For j = 1 To UBound(SE, 2)
Ach(i, j) = SE(i, j)
Next j
Next i
Dim k, l As Integer
For i = 1 To UBound(SE, 1)
For j = 1 To UBound(SE, 2)
Ach(i, j) = SE(i, j)
Next j
Next i
'Dim m, n, o, p As Integer
'For m = UBound(SE, 1) + 1 To UBound(SE, 1) + 1 + UBound(LE, 1)
' For n = 1 To UBound(LE, 2)
' For o = 1 To UBound(LE, 1)
' For p = 1 To UBound(LE, 2)
' Ach(m, n) = SE(o, p)
'
' Next p
' Next o
' Next n
'Next m
Erase SE
Erase LE
Erase MRO
Erase RE
Erase Ach
End Sub