informacion

[acmr]

en excel yo tengo un macro que me dise primero donde introducir el primer dato luego me vuelve a preguntar donde introducir el segundo dato
lo que yo quiero es disiendole a1 que todas las demas veses no me pregunte b1 c1
luego escribir a2 y por defaul me escriba lo demas b2 c2



Sub Entrar_Valor()
Dim Casilla As String
Dim Texto As String
Casilla = InputBox("En que casilla quiere entrar el valor", "Entrar Casilla")
Texto = InputBox("producto " & Chr(13) & "Para la casilla " & Casilla, "Entrada de datos")
ActiveSheet.Range(Casilla).Value = Texto
Casilla = InputBox("En que casilla quiere entrar el valor", "Entrar Casilla")
Texto = InputBox("fecha " & Chr(13) & "Para la casilla " & Casilla, "Entrada de datos")
ActiveSheet.Range(Casilla).Value = Texto
Casilla = InputBox("En que casilla quiere entrar el valor", "Entrar Casilla")
Texto = InputBox("cantidad " & Chr(13) & "Para la casilla " & Casilla, "Entrada de datos")
ActiveSheet.Range(Casilla).Value = Texto
End Sub