Macro to change cell value and print to PDF

[playerdee2]

Hello All

I need help with this macro please

Sub Macro4()
'
' Macro4 Macro
'
'
Range("Q2:X2").Select
ActiveCell.FormulaR1C1 = "4"
Range("Q3:X3").Select
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Range("Q2:X2").Select
ActiveCell.FormulaR1C1 = "16"
Range("Q3:X3").Select
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub


I need it to print to PDF automatically and save as the number used.

All help is appreciated

Thanks