Ayuda con macros de excel

Te mando mi solución. Con esta macro evaluamos el rango B10:N60 y si la celda contiene algún valor numérico lo dividirá entre 1000 o lo que quieras hacer.

Sub ejemplo()
For Each celda In Range("b10:n60")
If celda.Value <> "" And IsNumeric(celda) Then
celda.Value = celda.Value / 1000
End If
Next
End Sub

no olvides finalizar la consulta

muchas gracias por la respuesta, solo quiero preguntar otra cosa al no tengo idea de como poner las variables en range("b10:n60") si le quiero dar valores por medio de un inputbox

Sub ejemplo()

Dim inicio, fin As String

inicio = InputBox("Teclee celda de inicio : ", "inicio")

fin = InputBox("Teclee celda final : ", "fin")
For Each celda In Range("inicio:fin")<----------------- aquí es donde me marca el error ya lo probé sin variables y si funciona pero me interesa que lleve las variables

If celda.Value <> "" And IsNumeric(celda) Then

celda.Value = celda.Value / 1000

End If

Next

End Sub

te agradecería mucho la ayuda, de antemano muchas gracias por la pronta respuesta

Ok, aquí tienes:

Sub ejemplo()
'por luismondelo
On Error GoTo salida
inicio = InputBox("introduzca la celda inicio", "ATENCION", Default:="b10")
fin = InputBox("introduzca la celda final", "ATENCION", Default:="n60")
For Each celda In Range(inicio & ":" & fin)
If celda.Value <> "" And IsNumeric(celda) Then
celda.Value = celda.Value / 1000
End If
Next
Exit Sub
salida:
MsgBox "ha ocurrido un error, vuelva a intentarlo", vbCritical
End Sub

no olvides finalizar la consulta