[VBA] μεταφορά και αποθήκευση δεδομένον

[rmaria]

Καλησπέρα σας, έχω 2 ερωτήσεις.
Eχω ένα αρχείο τιμ - δελτίου αποστολής με VBA με μεταφορά δεδομένων και αποθήκευση σε μορφή PDF
Το πρώτο ερωτημά μου είναι:
1) το VBA των μεταφορών των δεδομένων είναι:
Sub transferData()
Dim NextRow As Integer
Set WS1 = Worksheets("ΤΙΜ-ΔΑ")
Set WS2 = Worksheets("ΣΥΓΚ")
NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
WS2.Cells(NextRow, 1) = WS1.Cells(10, 8)
WS2.Cells(NextRow, 2) = WS1.Cells(1, 16)
WS2.Cells(NextRow, 3) = WS1.Cells(10, 5)
WS2.Cells(NextRow, 4) = WS1.Cells(17, 3)
WS2.Cells(NextRow, 5) = WS1.Cells(24, 5)
WS2.Cells(NextRow, 6) = WS1.Cells(24, 8)
WS2.Cells(NextRow, 7) = WS1.Cells(24, 9)
WS2.Cells(NextRow, 8) = Year(WS2.Cells(NextRow, 1))
WS2.Cells(NextRow, 9) = Format(Month(WS2.Cells(NextRow, 1)), "00") & ". " & Format(WS2.Cells(NextRow, 1), "mmmm")
End Sub
, αλλά θα ήθελα μία αλλαγή, να περνιούνται μόνο μία συγκεκριμένη περιγραφή του προϊόντος, και το σημείο αναφοράς να είναι το όνομα και να μεταφέρονται μόνο τα στοιχεία του συγκεκριμένου.
2) το VBA της αποθήκευσης είναι:
Sub SaveFileAsPDF()
Dim SavePath As String, FolderName As String
Dim UName As String, WhereToSave As String
Dim PrintRange As Range, FileName As Range

Set PrintRange = Φύλλο5.Range("PrintAreaDoc1") '???µa pe?????? p?? ?a e?t?p??e?
Set FileName = Φύλλο5.Range("myInvNumber1") '???µa pe?????? p?? pe????e? ??. ??µ???????


UName = "maria administrator" '???µa ???st?
WhereToSave = "Επιφάνεια εργασίας" 'S?µe?? ?p?????st? p?? ?a ap????e??e?
FolderName = "Αρχείο" '???µa fa????? ap????e?s??

SavePath = "C:\Documents and Settings\" & UName & "\" & WhereToSave & "\" & FolderName

PrintRange.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
SavePath & "\" & FileName & ".pdf", Quality:= _
xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

γίνεται να ρωτάει πρώτα που θέλω να το αποθηκεύσω να μην το ορίζω από την αρχή;
Σας ευχαριστώ πάρα πολύ.