How to add new sheet and name depend on range of cells?

We're gonna need more information than that.
Sounds like a VBA solution is required.

Perhaps this VBA solution

Sub AddSheets()
    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Dim sname As String
    With Sheets("Sheet1")
        For i = 1 To lr
            sname = .Range("A" & i)
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = sname
        Next i
    End With
End Sub

When you provide a worksheet for review, please use the upload function available in the forum.

To attach a file to your post,
click advanced (next to quick post),
scroll down until you see "manage file",
click that and select "add files" (top right corner).
click "select files" find your file, click "open" click "upload" click 'done" bottom right. click "submit reply"

Once the upload is completed the file name will appear below the input boxes in this window.
You can then close the window to return to the new post screen.

using your spreadsheet, here is updated code to add a sheet as you have requested.

Option Explicit

Sub NewSheet()
Dim c As Range
Set c = ActiveCell
Worksheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = c.Text
End Sub

As to a template, what do you want the template to look like.

What does this mean. It is unclear to me what you are saying.

when i run it, its create new sheet with only one cell (B1)

You have not answered my earlier question

As to a template, what do you want the template to look like.

If you don't tell us specifically what you want, we cannot provide you with specific responses. Help us to help you by being clear in your requests.

Responses like this do not help us to provide you with what you want. We are not mind readers

it is not working well until now

Here is a revised code based upon your recent request. If you make your request clear with examples in your first post, then that will speed up getting a bona fide response that meets your needs.

Sub NewSheet()
    Dim c As Range
    Set c = ActiveCell
    Worksheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = c.Text
    With ActiveSheet
        .Range("A1") = "Name"
        .Range("B1") = "Age"
        .Range("C1") = "Mobile Number"
    End With
End Sub

For this to work, you must have a cell in the current range of B:B selected as this is prompted off an active cell selected.