Poz jesi li mislila ovako nešto
otiđi na print preview pa pogledaj da li je to ako sam dobro razumio

Na tvom primeru je Pozicija osenčenog dela otprilke tu gde treba da bude na listu prilikom štampanja. Međutim, uopšte ne znam kako je ovde postavljeno ovo ovo dugme CommandBut iako vidim da se pomoću njega rešava problem.

Potrebno mi je: Ako je selektovani deo na vrhu radnog lista, da i kod štampanja bude na vrhu lista. Ako je selektovani deo na sredini radnog lista, da i kod štampanja bude na sredini lista itd. Dakle da kod štampanja zauzme onu poziciju koju je imao i na radnom listu.

poz samo promjeni u kodu raspon print area
evo kod

ALT+F11
mjenjaš samo raspon ćelija u ovom slučaju D17:D24
komand button ti i ne treba samo odeš na print preview

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = Range("D17:d24").CurrentRegion.Address 'ovdje mjenaš raspon ako koristiš print area
ActiveSheet.PrintPreview

End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
On Error Resume Next
.PrintArea = "D17:D24" 'ovdje mjenjaš raspon
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.375)
.FooterMargin = Application.InchesToPoints(0.375)
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
'.PaperSize = xlPaperFanfoldUS 'U.S. Standard Fanfold (14-7/8 in. x 11 in.)
.PaperSize = xlPaper10x14
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

Ovo mi je komlikovano a i slabo stojim sa pisnjem kodova. Nemoguće da ne postoji neka alatka pomoću koje se ovo rešava na najprostiji način.

nemaš potrebe pisati kod,već je napisan samo
pritisni ALT+F11,uđeš u editor i namjestiš opseg koji ti treba za štampu na listu
imaš na primeru koda gdje namještaš raspon

U Print Preview pomjeri lijevu i gornju marginu na željeno mjesto (ako ti ova opcija odgovara)

Za pomeranje margine znam ali je problem što se kod print previw ne vide linije kolona i redova pa je dosta teško pogoditi ono što ti treba. Dodatni problem je što ja radim sa A3 formatom a oblasti štampanja se menjaju pa onda stalno treba iznova podešavati,pozdrav!