duda en macro de excel

[abrahamvj]

Siguiendo tus mismos parametros, y suponiendo que, tal y como tu dices, las hojas tienen nombres:

dim al as string

al = InputBox("Alumno", "Alumno")
falta= InputBox("Tipo de falta:", "especificar")
lugar = InputBox("Lugar donde se sucito:", "especificar")
reporto = InputBox("quien reporto:", "especificar")
fecha = InputBox("fecha de reporte:", "fecha")
strMsg = "Su reporte fue creado"
MsgBox strMsg

Sheets(al).Select

[A1].select

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

ActiveCell = falta
ActiveCell.Offset(0, 1) = lugar
ActiveCell.Offset(0, 2) = reporto
ActiveCell.Offset(0, 3) = fecha

OJO, no digo que lo que este haciendo sea lo ideal, solo he seguido tus misma spautas.

Abraham