Modificar una Macros, que copia datos de hoja a hoja

Hago una consulta sobre una macro.
Me dieron una mano para armar una macro que me arma una base de datos en otra hoja.
Lo que quiero modificar es que el dato a copiar no lo busque en la hoja1, sino que sea una Letra o Palabra predeterminada fija que puedo ponerla fija en la macro.
Acá te paso el ejemplo de parte de la macro que uso.
Lo que quiero variar es que no busque más en Hoja1 con"Worksheets", ni que busque en el "Range" ("xxxx"), sino que directamente pueda preemplazar todo eso pro la letra R
 ActiveCell.Offset(0, 1) = Worksheets("Hoja1").Range("A10")
 ActiveCell.Offset(0, 2) = Worksheets("Hoja1").Range("B4")
Como puedo hacer eso ya prove reemplazar todo por "R" pero no da, también reemplazar el rango por "R" pero da error ya que busca que fila.
Gracias Jor.