Get the last delivery date from an array run.

[irfanparbatani]

Hi Friends

I receive this output when I run the array

RecordType Purchasing Doc. Company Code Purchasing Org. Purch.Group Order Type Vendor PO Date Your Reference
H XYZ generated 1000 1000 041 ZSC 100000121 01/04/14 SubRun 500 I want pickup date Last delivery date to be concatenated after 500

The pickup date comes on next line.
Delivery Date
01/04/14
01/04/14
02/04/14
03/04/14
03/04/14
03/04/14
04/04/14
04/04/14
05/04/14
07/04/14
08/04/14
08/04/14
09/04/14
10/04/14
10/04/14
10/04/14
11/04/14
11/04/14
12/04/14
14/04/14
15/04/14
15/04/14
16/04/14
17/04/14
17/04/14
17/04/14
18/04/14
19/04/14
19/04/14
21/04/14
22/04/14
22/04/14
23/04/14
24/04/14
24/04/14
24/04/14
24/04/14
26/04/14
26/04/14
28/04/14
29/04/14
29/04/14
30/04/14

Sheet attached:

Also using below code to fill up the array

Sub Example()
Do While COUNTER1 > 0 And ActiveCell.Offset(0, -25) =XYZ
ActiveCell.EntireRow.Resize(3).Insert

Write_POHeader_Details
ActiveCell.Offset(1).Activate

COUNTER1 = COUNTER1 - 1

Do While COUNTER2 <= 400 And ActiveCell.Offset(0, -25) = XYZ
Write Deliverydate
ActiveCell.Offset(1).Activate
COUNTER1 = COUNTER1 - 1
COUNTER2 = COUNTER2 + 1
Loop
'COUNTER1 = COUNTER1 - 400
COUNTER2 = 1
ROUTE = ActiveCell.Offset(0, -25)
Loop

Sub example()
With ActiveCell

.Resize(, 10) = Array _
("H", "XYZ generated", "1000", "1000", "'041", "ZSC", _
"=R[2]C[-15]", "=R[2]C[-31]", "=""Sub Run "" &R[2]C[-34] ")
.Resize(, 10).Font.Bold = False
End With
End Sub

please help.