Excel VBA insert Formulas below a table

[p45cal]

Difficult for me to test so test this for me:

Sub extractJ2Dept()
'
' extractJ2Dept Macro
' Extracting the department selected in J2
'


'
Dim vNameDpt
vNameDpt = Sheets("HR").Range("J2").Value
With Sheets.Add(After:=Sheets(Sheets.Count))
  .Name = vNameDpt
  Sheets("HR").Range("B1,C1,D1,F1").Copy .Range("A1")
  Sheets("HR").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("HR").Range("J1:J2"), CopyToRange:=.Range("A1:D1"), Unique:=False
  .Columns("A:D").Columns.AutoFit
  With .Range("A1").CurrentRegion
    Z = .Columns(4).Address(0)
    With Cells(.Cells(.Cells.Count).Row + 1, 3)
      .Resize(4).Value = Application.Transpose(Array("Sum", "Avg", "Min", "Max"))
      .Offset(, 1).Formula = "=Sum(" & Z & ")"
      .Offset(1, 1).Formula = "=AVERAGE(" & Z & ")"
      .Offset(2, 1).Formula = "=Min(" & Z & ")"
      .Offset(3, 1).Formula = "=Max(" & Z & ")"
    End With
  End With
End With
End Sub