Issue saving Excel Worksheet to .pdf

[kpost]

I tried that and it saved the .pdf as the file name that I specified. But if I want to save the file name based on a cell in this instance cell M5 it does not save. Also when I set the print area for the macro it is saving 26 pages and not just one. Below is the updated Macro:

Sub Printpdf()
    ' Printpdf Macro
    ' Saves each sheet as a pdf
    ' Keyboard Shortcut: Ctrl+w
    ' Set X = 6 for start of loop
    x = 6
    Do Until x = 250
         ' Check for blank row in data sheet and stop looping
         Sheets("data sheet").Select
         Cells(x, 1).Select
         If Cells(x, 1) = 0 Then
             x = 250
          Else
              Sheets("scorecard").Select
              ' Copy Supplier name from "data sheet" row "x" to "scorecard" sheet
              Sheets("data sheet").Select
             Cells(x, 1).Select
             Selection.Copy
             Sheets("scorecard").Select
             Range("E2").Select
             ActiveSheet.Paste
             ' Set variable s equal to supplier name in "scorecard" sheet
             s = Range("M5").Value
             ' Save the sheet as a pdf with the name "s"
             Dim Path, FileName1 As String
             Path = "C:\Users\kpost\Downloads\PDFTest" '<-- edit path as required.
             FileName1 = Sheet1.Range("M5").Value '<-- edit cell target as required.
             ' Save active workbook as PDF
             ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FileName1 & ".pdf", OpenAfterPublish:=False
             ' Increment value of x for loop
             x = x + 1
         End If
    Loop
End Sub