Apologies, forgot to close the WITH section:
Option Explicit

Sub Macro1()
Dim shARR As Variant, i As Long, LR As Long
Dim pack_array As Variant, pack_name As String, file_prefix As String, file_suffix As String, report_pages As String

    shARR = Array("ABS", "SCS", "CUS", "FIN", "H&R", "NET", "CEO", "ROP", "S&E")
    For i = LBound(shARR) To UBound(shARR)
        With Sheets(shARR(i))
            LR = .Range("A" & .Rows.Count).End(xlUp).Row
            .Range("A2:B" & LR).Copy
            Sheets("Measure Overview").Range("S2").PasteSpecial xlPasteValues, Transpose:=True

            file_prefix = (ThisWorkbook.Path & "\")
            file_suffix = (" " & Format(Now, "mm-yyyy") & ".pdf")

            pack_name = Sheets("Main").Range("C5").Value
            pack_array = report_pages

            Sheets(pack_array).Select
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_prefix & pack_name & file_suffix, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        End With
    Next i

End Sub