If Range("postide_vahed_vordselt") = "Jah" Then
  Set postide_asukohad = Range("postide_asukohad")
  Sheet8.Range("A31:A40").EntireRow.Hidden = True 'peidab 8 rida piirete valimiseks
  L0 = Range("algus") 'esimese posti asukoht
  Tee_Locvektor L0, L_kasipuu, LV(), n
  Else
  Sheet8.Range("A31:A40").EntireRow.Hidden = False 'toob 8 rida peidust välja piirete valimiseks
  ReDim LV(1 To n)
  Set postide_asukohad = Worksheets("Spetsifikatsioon").Range("lammas")
  Loe_Tulp LV, n, postide_asukohad 'oleks tarvis, et ta loeks esimeselt lehelt (spetsifikatsioon) väärtused sisse ning kirjutaks ka lehel calculations tabelisse
  L0 = LV(1)
  Kir_Tulp LV, 1, n, Worksheets("Calculations").Range("postide_asukohad")