Trasladar un dato de una macro, a un excel

Hola, soy nuevo en esto del mundo VBA.
Tengo hecha una macro con un módulo, que lo que hace es cogerme datos de distintas hojas del libro a través de
y1 = Worksheets("New Position").Range("G8"). Value
Como este dato, otros tantos.
Luego, la macro a través de unas ecuaciones me saca un resultado (xfinal)
Lo que no se hacer es cómo trasladar ese dato a una celda de una hoja concreta.
Imagino que será algo así como:
Sheets("RESULTS").Activate
Range("P54").Activate = xfinal
Pero me da error...
Espero que me podáis ayudar.
Muchas gracias de antemano