Dim rang as Range
Range("F1").Select
Set rang = Range(Selection, Selection.End(xlToRight))
For Each celija In rng
     If celija.Value >= startDatum And celija.Value <= endDatum Then
         'kod koji ce:
         'UVIJEK zapoceti ispisivati od celije (2,1) tj A2
         ' a zapocet ce ispisivati od startDatuma do endDatuma
         'u ovom slucaju izabran je luka, a njegov red mozemo odrediti sa:
         ' Application.WorksheetFunction.Match("luka", Range("E:E"), 0) ili 
         'bi vi to odredili drugacije
         'Cells(2,1)=startDatum : Cells(2,2)="luka": Cells(2,3)="jagoda"
         'Cells(3,1)=startDatum + 1:Cells(3,2)="luka": Cells(3,3)="kruska" 
         'itd

     End If
Next celija