RE:Escribir un valor en una celda
mira para lo que necesitas hay varias formas, te doy un ejemplo de una
Sub eliminar_99C()
TReglonFin = InputBox("Reglon Final")
For j = 1 To TReglonFin
celda = "C" & CStr(j + 1)
resultado = Range(celda).Value
If resultado = -99 Or resultado = -99.99 Then
dato = ""
Range(celda).Value = dato && asigno el valor a la celda.
End If
Next j
End Sub
otra forma
Worksheets("Resultado_Promedios").Activate &&me refiero a la hoja Resultados...
Range("A2").Select &&escojo mi celda
ActiveCell.Value = "1" &&pongo el valor
Puedes utilizar valores como este caso “1” definidos o asignarle variables como en el caso de arriba o asi
Range("A2").Select &&escojo mi celda
ActiveCell.Value = dato &&pongo el valor
si tienes dudas te puedo enviar un ejemplo