Reversing a chart horizontally

Sub Verso()
    Dim iCol        As Long

    Sheet2.Cells.Clear
    Sheet1.Rows(1).Copy
    Sheet2.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    
    With Sheet1.UsedRange
        For iCol = .Columns.Count + .Column - 1 To .Column Step -1
            .Columns(iCol).Copy _
                    Destination:=Sheet2.Rows(.Row).Cells(.Columns.Count + .Column - iCol)
        Next iCol
    End With
    Application.CutCopyMode = False
End Sub

Adding Code to a Sheet module
1. Copy the code from the post
2. Right-click on the tab for the relevant sheet and select View Code. This opens the Visual Basic Editor (VBE) and shows the object module for the selected worksheet.
3. Paste the code in the window
4. Press Alt+Q to close the VBE and return to Excel

Running a Macro
1. Do Alt+F8 to open the macro dialog
2. Select the macro name (Verso) from the dropdown list and press Run