Sub Transposewithformula()
Cells.Replace What:="=", Replacement:="#=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("A1:E1").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Cells.Replace What:="#=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Sub Transposewithformula()
Dim fArray As Variant
Dim Rng As Range
Cells.Replace What:="=", Replacement:="#=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Range("A1:E1").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Cells.Replace What:="#=", Replacement:="=", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
With Sheet1
fArray = .Range("A2:A6").FormulaR1C1
Set Rng = .Range("A2:A6")
Rng.Formula = fArray
Rng.FormulaArray = Rng.FormulaR1C1
End With
End Sub