Create target for particular tools group

I have created a group using the code below to create a header: but however with this group , i will need to set a target for each tool group.

Code:

---

Dim LastRowColD As Integer

LastRowColD = Range("A65536").End(xlUp).Row
Range("Y2:Y" & LastRowColD).Select
With Selection
.FormulaR1C1 = "=LEFT(RC4,4)"
End With
Sheets("Chart").Activate
ThisWorkbook.RefreshAll

---

Not clearly understandable