Sorting problem:(

Hi again.I am a new member who joined few weeks ago.Well first I would like to say thank you to those who willing to give some help or tips. Here is my problem.

I have a workbook with loads of tabs/sheet name. I decided in one sheet to review all tabs name that links to each tabs and one button named "refresh". What I am trying to do is to sort it out on ascending order(without changing the position of tabs in a workbook),Well on this sheet that reviews all sheet name it has 4 columns and named it.Tabs(A),Description(B),In charge(C) and Department(D).

I used to record a macro that sort it out in ascending order well it works fine when I copy the code of macro inside my vba code in refresh button. It sorts out all sheet name in column A,but whenever I hit refresh B,C,D trying to sort randomly it means they are losing their position that describe the sheets name in Column A.Aside from that when I hide a one sheet.the last sheet name on my review tabs duplicates

For your convinience here is a sample code.tried to hide one sheet.and it duplicates the last sheet name.Thanks for helping me a bit