Suas perguntas pedem uma função de planilha, eu não acho que é possível, então eu ofereço uma macro (VBa) que deve fazer o que você quiser!
Option Explicit
Sub DoThis()
Dim row As Integer
row = 1
Dim col As Integer
col = 65
Do While (Range("A" & row).Value <> "")
Do While (Range(Chr(col) & row).Value <> "")
Dim currentValue As Integer
currentValue = Range(Chr(col) & row).Value
Range(Chr(col + 7) & currentValue + 1).Value = currentValue
col = col + 1
Loop
row = row + 1
col = 65
Loop
End Sub
A planilha do Excel que usei (usei apenas as primeiras 4 linhas ou seu exemplo devido a limitações de tempo)
Edepoisqueeucorro
Como você pode ver, optei por salvar a nova tabela em um lugar diferente para que ela não seja destrutiva.