Poner formulas con una macro

Hola quiero hacer una macho en excel para que me coloque distintas formulas en celdas.

tengo un libro con 400 clientes y tengo que poner en cada hoja lo siguiente

Sub ejemplo()

Range("F1").Select
ActiveCell.FormulaR1C1 = "=MAX(R[7]C[-5]:R[49]C[-5])"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-R[-2]C"
Range("F1:F2").Select
Selection.NumberFormat = "m/d/yyyy"
Range("F3").Select
Selection.NumberFormat = "General"
End Sub

luego en la hoja "clientes atrasados"

Sheets("clientes atrasados").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(hoja1!R[1]C[5]>30,hoja1!R[1]C[5]<4000),hoja1!RC[1],"""")"

La primer parte con la macro la puedo hacer cliente por cliente pero la segunda

no puedo porque en la formula me cambia el nombre de la hoja.

se puede hacer algo?

Muchas Gracias