[Programación VBA] ¿Cómo escribir una variable de carácter en una celda?

referencia de vba

rango("a"&i)

celdas(i,j)

Subhoja5_Botón 1_Clic único()

Filas("3:3").Select

Rango(Selección, Selección.End(xlDown)).Seleccione

Rango(Selección, Selección.Fin (xlDown)).Select

Rango(Selección, Selección.End(xlDown)).Select

Rango(Selección, Selección.End(xlDown)).Seleccione

Selection.Delete Shift:=xlUp

nowrow = 6

For i = 2 To Sheets("detalles de almacenamiento").UsedRange.Rows.Count

findaaa = 0

For j = 6 To nowrow

If Sheets("Informe mensual").Range("d" & j) = Sheets( "detalles de almacenamiento") .Range("c" & i) & "/" & Sheets("detalles de almacenamiento").Range("g" & i) Entonces

findaaa = 1

j = 65536

Finalizar si

Siguiente j

Si findaaa = 0 Entonces

Sheets("Informe mensual ").Range("d " & nowrow) = Sheets("detalles de almacenamiento").Range("c" & i) & "/" & Sheets("detalles de almacenamiento").Range("g" & i )

nowrow = nowrow + 1

Finalizar si

Siguiente i

MsgBox nowrow

Rango(" D6:D" & nowrow - 1) .Select

Selección.Clave de clasificación1:=Rango("D6"), Orden1:=xlAscendente, Encabezado:=xlGuess, _

PedidoPersonalizado:=1, MatchCase:=False, Orientación:=xlTopToBottom, SortMethod _

:=xlPinYin, DataOption1:=xlSortNormal

End Sub