VBA to copy details from excel and save as PDF

but only the header is available in the PDF

Not with the sample file...see result...


Try this ... small change...

Sub sintek()
Dim Data, Dict As Object, Path As String, i As Long, lr As Long
Set Dict = CreateObject("Scripting.Dictionary")
Path = "E:\Steven\Desktop\" ' ! Change to your save Path......
With Cells(1).CurrentRegion
    Data = .Value
    For i = 2 To UBound(Data, 1)
        If Not Dict.exists(Data(i, 5)) Then
            Dict.Add Data(i, 5), 1
            .AutoFilter 5, Data(i, 5)
            lr = Parent.Range("A" & Rows.Count).End(xlUp).Row
            Parent.Range("A1:F" & lr).ExportAsFixedFormat xlTypePDF, Path & Data(i, 5), xlQualityStandard
            .AutoFilter
        End If
    Next i
End With
End Sub