Option Explicit
Sub CpyRws()
Dim fName
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Sheet1") '<--- sheet name data copied from
For i = Cells(Rows.Count, "A").End(xlUp).Row To 8 Step -1
If Sheets("Sheet1").Range("A" & i).Value <> "" Then
Sheets("Sheet1").Rows(i).Copy Sheets("Temp").Range("A8")
With Sheets("Temp")
fName = .Range("A8").Value
.ExportAsFixedFormat 0, Environ("USERPROFILE") & "\Desktop\" & _
fName & ".pdf", OpenAfterPublish:=False
End With
End If
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheet1.Activate
Sheet1.Range("A1").Select
End Sub