Hi Claus,

With the array code I am trying to do a transpose the column to row within the row-29 to row-49 range.

Here is where I am now, but cannot get past the Re Dim...

Howard

Sub Test_29_49_Array_XPose()
Dim FERow As Long, i As Long, myCol As Long
Dim varData As Variant
Dim eRng As Range

With ActiveSheet

varData = .Range("E1", Range("E1").End(xlDown))

For Each eRng In varData
ReDim Preserve varData(varData.Cells.Count - 1)
varData(i) = eRng
i = i + 1
Next

myCol = 1

FERow = WorksheetFunction.Max(29, .Cells(49, myCol).End(xlUp).Offset(1, 0).Row)

Cells(FERow, myCol).Resize(columnsize:=varData.Cells.Count) = Application.Transpose(varData)

End With

End Sub