sortering med tomme celler

Der findes ikke en indsæt speciel, ligesom fx. transponering. Da du ikke har en "bestemt" rækkefølge på dine tal og gerne vil beholde mellemrum bli'r du nødt til at lave en makro (så vidt jeg kan se....)
Jeg ville indsætte flg. i et modul og kører det - der kan i øvrigt laves automatiske rutiner til at finde antal værdier / celler der skal vendes om.

Sub Sorter()
Dim i As Integer, Værdier() As Variant
With ThisWorkbook.Worksheets("Ark1")
  ReDim Værdier(1 To 5)
  For i = 1 To 5            ''Starter med at gemme værdierne i et array:
    Værdier(i) = .Cells(1, i)
  Next i
  For i = 1 To 5            ''Udskriver værdierne baglæns:
    .Cells(1, i) = Værdier(6 - i)
  Next i
End With

End Sub

Uppss. Jeg ser du gerne vil beholde overskriften i A1 - derfor skal der rettes til:

Dim i As Integer, Værdier() As Variant
With ThisWorkbook.Worksheets("Ark1")
  ReDim Værdier(2 To 5)
  For i = 2 To 5            ''Starter med at gemme værdierne i et array:
    Værdier(i) = .Cells(1, i)
  Next i
  For i = 2 To 5            ''Udskriver værdierne baglæns:
    .Cells(1, i) = Værdier(7 - i)
  Next i
End With

Hjælp , hvordan får jeg en sådan makro indspillet og til at virke

Hvis du ikke er vant til at rode med VBA skal du nok overveje om det er "besværet" værd - er det ikke nemmere bare at bytte om på cellerne i hånden?
Hvis du ikke kender VBA kan der nemt opstå problemer da ovenstående kode er "skræddersyet" til dit eksempel.