ActiveCell.Offset(0, 3).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "D7"
ActiveCell.Offset(0, 4).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "E7"
ActiveCell.Offset(0, 5).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "F7"
ActiveCell.Offset(0, 6).FormulaLocal = "=" & "'" & ActiveCell.Value & "'" & "!" & "G7"