Convert Multiple Rows to Columns

Hello,

This is a small script that I was given a while back (sorry I don't remember who from) that I have modified on a handful of occasions to automate the transpose function. It might prove helpful to you too.

Sub TransposeColumnsRows()
    Dim SourceRange     As Range
    Dim DestRange       As Range
 
    Set SourceRange = Application.InputBox(Prompt:="Please select the range to transpose", Title:="Transpose Rows to Columns", Type:=8)
    Set DestRange = Application.InputBox(Prompt:="Select the upper left cell of the destination range", Title:="Transpose Rows to Columns", Type:=8)
 
    SourceRange.Copy
    DestRange.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
 
End Sub