Excel to PDF in one File by appending list data

[avishal007]

I have following code to generating Salary slip in individual in PDF with employee No. but now I want to print all in one PDF file.

Sub SalarySlip()

Dim lastrow As Long, RA As Long
lastrow = Sheets("Salary").Cells(Rows.Count, "B").End(xlUp).Row
For RA = lastrow To 6 Step -1

Sheets("Salary").Select
Range("B" & RA).Select
Selection.Copy
Sheets("Slip").Select
Range("K2").PasteSpecial Paste:=xlPasteValues

Sheet2.Range("A1:I31").ExportAsFixedFormat xlTypePDF, Filename:="C:\Slip\" & Sheet2.Range("K2").Value, openafterpublish:=False

Next RA

End Sub