Apply format to all sheets starting on the 4th sheet

[ExcelNoob11]

I have a template sheet called "template" that I'd like to apply to all sheets starting on the 4th. How do I loop through each sheet, apply the format and do some other functions. I posted a macro I create to do it manually. But it needs to dynamically take the value in A9, paste into the range b3:j3 and get rid of the first column.

    Sheets("Template").Select    Rows("1:8").Select
    Selection.Copy
   
 'loop to go through worksheets commented out
   ' For I = 4 To (Worksheets.Count())
   '     
   'Next
    
    Sheets("SheetAlpha").Select
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Rows("9:9").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "Value1"
    Range("B3:J3").Select
    ActiveCell.FormulaR1C1 = "Value1"
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlToLeft

 

[ExcelNoob11]

Was able to successfully do what I wanted to do with this:

    Dim Person As String    Person = InputBox("Enter your name: FirstName_LastName")
    Application.ScreenUpdating = False
   For I = 4 To (Worksheets.Count())
    Sheets("Template").Select
    Rows("1:8").Select
    Selection.Copy
    ThisWorkbook.Sheets(I).Select
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Rows("9:9").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A9").Copy Destination:=Range("B3:J3")
    Range("B5:J5").Value = Person
    Range("A9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B5:J5").Select
   Next
    Application.ScreenUpdating = True