Extract data from filename and auto-set static date

For cell F6, either =CELL("filename") or if you don't want the directory and sheet names then =MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-1-FIND("[",CELL("filename")))

As for your H10 date, you need a macro that runs when the workbook is opened like:

Private Sub Workbook_Open()
If Range("H10") = "" Then
    Range("H10").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End If
End Sub

(Note: this requires the template be blank in that cell, or you could fill it w/ something like "DATE" and then change the if statement in the macro from "" to "DATE" or whatever)

Oh and there might be a simpler way to past the date into the cell, I admit that I'm not much of a macro person myself.