I hope I understood your problem.

Sub Test_29_49_Array_XPose()
Dim FERow As Long, LRow As Long
Dim varData As Variant

With ActiveSheet
LRow = .Cells(Rows.Count, "E").End(xlUp).Row
varData = .Range("E1:E" & LRow)

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

If FERow = 50 Then
MsgBox "Exceed Range"
Exit Sub
End If

Cells(FERow, 1).Resize(columnsize:=UBound(varData)) =
Application.Transpose(varData)
End With

End Sub


Regards
Claus B.

Yes, that is it. Just wanted a macro example of the transpose function to work within the 29 -- 49 row range.

Thanks again.

Howard