Give this a try
Option Explicit
Sub Test()
Dim dict, d
Dim Rng As Range, cel As Range, c As Range
Dim Dest As String
Dim sh As Worksheet
Application.ScreenUpdating = False
Set sh = Sheets("Plan1")
Set dict = CreateObject("Scripting.Dictionary")
Set Rng = Range(sh.Cells(2, 8), sh.Cells(Rows.Count, 8).End(xlUp))
Set c = sh.Cells(Rows.Count, 4).End(xlUp)(2)
Dest = "C:\Check\"
'Create unique list
On Error Resume Next
For Each cel In Rng
dict.Add cel.Value, cel.Value
Next
On Error GoTo 0
'Filter & Print
For Each d In dict.items
sh.Range("$H:$H").AutoFilter Field:=1, Criteria1:=d
Set Rng = Range(Cells(2, 4), c.Offset(-1)).SpecialCells(xlCellTypeVisible)
c.Formula = "=SUM(" & Rng.Address & ")"
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dest & d & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Next
'Remove filter
sh.Range("$H:$H").AutoFilter
c.ClearContents
Application.ScreenUpdating = True
End Sub