pdeshazier,
This should do what you need, save the range to pdf then email off. This is dependent on each of the departments listed in the array existing in the worksheet and being sorted according to the array. Someone else might have a cleaner way but this is what I use changed some to fit this specific sheet.
Sub emailpam()
Dim OutApp, OutMail As Object
Dim Dept, DSplit As Variant
Dim eAddress, FName As String
Dim FirstRow, LastRow, EMR As Integer
Dim rng As Range
Dept = Array(606, 607, 608)
Set OutApp = CreateObject("Outlook.Application")
'Set the first and last row to the first row of your data
FirstRow = 2
LastRow = 2
'Split your data out as the filename can not have / in it.
DSplit = Split(Date - 1, "/")
With ActiveWorkbook.Worksheets(1)
For Each i In Dept
FirstRow = LastRow 'reset the first row of data to where the last ended.
'loop through matching cells to find the last row of this specific department
Do Until .Cells.Range("A" & LastRow).Value <> i
LastRow = LastRow + 1
Loop
'set range of department with headers
Set rng = Range("A1:H1,A" & FirstRow & ":H" & LastRow - 1)
'set the pdf file name
FName = "z:\test\Dept_" & i & "(" & DSplit(2) & "-" & DSplit(0) & "-" & DSplit(1) & ").pdf"
'save pdf. this needs a different range as it does not need the headers listed separately
Range("A" & FirstRow & ":H" & LastRow - 1).ExportAsFixedFormat xlTypePDF, Filename:=FName
'create the email
Set OutMail = OutApp.CreateItem(0)
With OutMail
EMR = 1 'row where the emails address start.
'loop through email worksheet to find correct department
Do Until ActiveWorkbook.Worksheets(2).Cells.Range("A" & EMR).Value = i
EMR = EMR + 1
Loop
'grab email address
eAddress = ActiveWorkbook.Worksheets(2).Cells.Range("B" & EMR).Value
.To = eAddress
'i set the subject to the pdf file name but you can easily change this to the excel workbook name
.Subject = "Dept_" & i & "(" & DSplit(2) & "-" & DSplit(0) & "-" & DSplit(1) & ")"
'add pdf
.Attachments.Add FName
.Send
End With
Next
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
mike