rotate values

Right Click on the sheet name at the bottom of excel and select view code

Paste this code in the Visual Basic module

Close the Visual Basic module

Click on A1.

Click somewhere else

Click on A1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub

Set Last = Range("B3:B13").Find(Range("A1").Value, LookIn:=xlValues, Lookat:=xlWhole)

Pos = Last.Row

MyLoop:

Pos = Pos + 1
If Pos = 14 Then Pos = 1
If Cells(Pos, 2) = "" Then GoTo MyLoop

Range("A1").Value = Cells(Pos, 2).Value

End Sub