Range("B7").Select
ActiveCell.
FormulaR1C1 =

That structure should always be replaced with
Range("B7").FormulaR1C1 =

The same is true of
Something.Select
Selection
.BlahBlah

Should be edited to read
Something.BlahBlah