Error en pequeña macro excel

¿Qué es lo que no te funciona?
Corre bien, da este resultado 2 - 4 - 6 -8 - 10
La secuencia la carga desde A1 hasta A5

Cierto la probé en un libro nuevo y funciona bien, muchas gracias, debe haber sido que el archivo estaba mezclado con otras macros, probé bastante tiempo y en realidad no funcionaba... muchas gracias
Pero tengo otro caso, el objetivo es también similar, realizar una secuencia de números correlativos pero escogiendo la celda inicial... al parecer tampoco funciona y no lo he podido resolver... si alguien sabe por favor
Sub correlativos()
Dim celda_inicial As String
Dim i As Integer
Dim columna As Integer, fila As Integer
celda_inicial = Val(InputBox("ingrese celda inicial", "INGRESO"))
ActiveSheet.Range("celda_inicial").Select
fila = ActiveCell.Row
columna = ActiveCell.Column
For i = 1 To 10
ActiveSheet.cell(fila, columa).Value = i
fila = fila + 1
Next i
End Sub

El macro inicial resuelve ese problema solo debes modificar 2 lineas:
Quedando así
Sub consecutivos()
Dim i As Integer
Dim valor As Integer
valor = Selection.Row
i = 2
For i = 2 To 10 Step 2
ActiveSheet.Cells(valor, Selection.Column).Value = i
valor = valor + 1
Next i
End Sub

Perfecto muchas gracias pero en la corrección se modificó la característica de usar un inputbox para definir en que celda se inicia la secuencia
Saludos