# TRANSPOSE function macro with Selection.End(xlToRight)

Good Morning, I'm trying to write a macro to insert a Transpose function link from multi rows to a single column using [Range(Selection, Selection.End(xlToRight)).Select
& Selection.FormulaArray= "=TRANSPOSE]


Here is the raw macro with problem line [ Selection.FormulaArray= "=TRANSPOSE(Sheet1!RC:RC[124])"], I need this to link to what is copied in sheet1 for some reason the link is missed when the macro is run & it goes to EG =TRANSPOSE(Sheet1!A128:DU128) and not the wanted TRANSPOSE(Sheet1!A4:DU4)

Please Login or Register  to view this content.

Macro12 Macro
'

'
Sheets("Sheet1").Select
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Application.CutCopyMode= FALSE
Selection.Copy
Sheets("transp").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode= FALSE
[Selection.FormulaArray= "=TRANSPOSE(Sheet1!RC:RC[124])"
Sheets("Sheet1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Selection.Copy
Range("A1").Select
End Sub[/CODE]

Thanks, all comment appreciated ,

Paul

Here is my workbook with MACRO12 on it highlighted the problem line in RED