Creating a new sheet with each new line item

Try it like this.....

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 And Target.Column <> 3 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Cells(Target.Row, 1).Value = "" Then Exit Sub
    
    On Error GoTo NoSheet
    If Target.Column = 3 Then
        Worksheets(Cells(Target.Row, 1).Value & "s Template - Blank").Copy before:=Worksheets(5)
        Worksheets(5).Name = Target.Value
        If UCase(Cells(Target.Row, 2).Value) = "YES" Then
            CriticalSafety Worksheets(5)
        End If
    End If
    
    If Target.Column = 2 And Cells(Target.Row, 3).Value <> "" Then
        If UCase(Target.Value) = "YES" Then
            CriticalSafety Worksheets(Cells(Target.Row, 3).Value)
        End If
    End If
NoSheet:
    
End Sub
Private Sub CriticalSafety(shtS As Worksheet)
    With shtS.Range("H1:S1")
        .Merge
        .EntireRow.RowHeight = 36
        .Font.Size = 36
        .Interior.ColorIndex = 3
        .Value = "***THIS ITEM HAS BEEN IDENTIFIED AS SAFTEY CRITICAL***"
    End With
End Sub