Copy to the rows between 49 up to 29
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
|