Podrías hacer lo siguiente:
valorceldaA1hoja1 = Range("A1").Value
Si por ejemplo en la hoja2 es siempre la misma columna puedes hacer:
Range("B" & (2 + valorceldaA1hoja1) = a_lo_que_quieras_guardar.
Incluso si lo quieres juntar todo en una línea podría ser:
Sheets("Hoja2).Range("B" & (2 + (Sheets("Hoja1").Range("A1").Value) ) = a_lo_que_quieras_guardar.
En el caso de que la casilla destino de la hoja pueda variar también la columna, siempre puedes usar variables dentro del método range:
Range( columna & fila ).Value
y que las variables columna y fila las calcules en otros lados.