Flipping columns in entire selections

[jonnyyyl]

I am trying to flip the desired selection around. making the bottom of the column, all the way up to the top, along with all the items in the same row.

How do I go about it in vba, while also adding it default button in my paste special menu?
Thanks.

[bulina2k]

One way of doing it (not in the most elegant way) is this. Using an additional sheet, copy the range starting from the bottom and then copy the result over the original selection. After that, delete the helping additional sheet.

Sub reverse()
    Dim csh As Worksheet
    Dim addsh As Worksheet
    Dim lr As Long, add As String
    Dim i As Long, sel As String
    
    Application.ScreenUpdating = False
    sel = Selection.Address
    add = Selection(1, 1).Address
    lr = Selection.Rows.Count
    Set csh = ActiveSheet
    Set addsh = Sheets.add(, csh)
   
    For i = lr To 1 Step -1
        Range(sel).Rows(i).Copy addsh.Range("A" & lr - i + 1)
    Next
    
    addsh.UsedRange.Copy csh.Range(add)
    addsh.Delete
    Application.ScreenUpdating = True
End Sub