copy sheet and cell value based on list and rename as per list

[abdullahbhola]

hello ,

i am very new to vba , currently i am looking for code to copy cell values from list to multiple sheet in specific cell

what i am trying to do is as per bellow sheet "point" i have a list with values column B are the names and C & D are values

i need to copy sheet named "template" and rename as per the values in Column B and the values are un defined and be upto any length

currently i am using bellow copy to copy sheet and rename as per list ( found online)

Sub CopySheetRenameFromCell()

Dim sh1 As Worksheet, sh2 As Worksheet, c As Range
Set sh1 = Sheets("template")
Set sh2 = Sheets("point")
For Each c In sh2.Range("B6", sh2.Cells(Rows.Count, 2).End(xlUp))
sh1.Copy After:=Sheets(Sheets.Count)
On Error Resume Next
ActiveSheet.Name = c.Value:
On Error GoTo 0
Next
End Sub

but i have no idea how can i copy value from "point" Sheet Column C and D values 1 & 51 to sheet "a" Column C2 and F2 and so on

a values in sheet "a"
b values in sheet "b" and on

awaiting your help