Create target for particular tools group

[bethrah]

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.

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

[LalitPandey87]

Not clearly understandable