Dim table1(), z
table1 = Range(Range("A7:U7"), Range("A7:U7").End(xlDown)).Value
table1 = Application.Transpose(table1)
z = UBound(table1, 2) + 1
ReDim Preserve table1(LBound(table1, 1) To UBound(table1, 1), _
LBound(table1, 2) To z)
table1 = Application.Transpose(table1)