Como puedo hacer una macro que corra en varias hojas del libro y ponga el valor de una celda en otra hoja

Tengo así

Sheets("EJEM. PEDIDO FINCADO").Select
Range("G13").Select
ActiveCell.FormulaR1C1 = "='OPCIÓN 1 '!R[101]C[16]"
Range("G14").Select

Pero lo que quiero en que tanto en las opciones 1 a 7 que en la misma celda de cada libro tiene el valor que quiero llevar a la hoja pedido fincado en una macro la lleve según la hoja activa .