Yardım Sütunları Nasıl Tersine Çeviririm?

Yukarıda resimde gördüğünüz gibi bir finansal tablo var elimde ancak farkettiğiniz üzere sütunlar en güncel dönemden en eskiye göre sıralanmış benim istediğim Kalem sütunu hariç ne kadar sütun varsa seçeceğim ve en eski tarihteki sütundan en yeni tarihteki sütuna doğru altındaki değerlerle birlikte yer değiştirecek bir nevi ayna gibi düşünün. Bunu nasıl yapacağım bir türlü beceremedim, yardımcı olursanız sevirim.

Merhaba;
Bunu makro ile yapmalısınız.
Boş bir modüle;

Sub Makro1()
Columns("B:E").Select 'sıralanacak sütunlar
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal' "B2" yazan alan sıralama kriterine bakılacak alan
Range("B2").Select
End Sub

Kodlarını yerleştirin ve bir butona bağlayarak deneyin.
iyi çalışmalar.