Serie donde un # se repita 3 veces en EXCEL

Puedes insertar en un módulo de tu libro la siguiente macro :
Sub lista()
Dim PasteRange As Range
Dim maximo As Double
On Error Resume Next
Set PasteRange = Application.InputBox _
(prompt:="Especificar la celda a partir de la cual se listará la serie :", _
Title:="Listado", _
Type:=8)
On Error GoTo 0
If TypeName(PasteRange) <> "Range" Then Exit Sub
Set PasteRange = PasteRange.Range("A1").Resize(3, 1)
maximo = Application.InputBox(prompt:="Número máximo", Title:="Listado", Type:=1)
For i = 1 To maximo
If i = 1 Then
PasteRange.Range(PasteRange.Cells(1, 1), PasteRange.Cells(3, 1)) = i
Else
PasteRange.Range(PasteRange.Cells(1, 1), PasteRange.Cells(3, 1)).Offset((i - 1) * 3) = i
End If
Next
End Sub
Al ejecutarla, debes especificar la celda a partir de la cual se listará la serie y el número máximo de esta.
Si quieres me puedes dar tu correo y te envío el libro en el que tengo el código anterior.