Try this, you will have to put it into VBA and run it but it should work.
Ask if you don't know how to do this

Sub main()
Dim lastCell As Long
Dim myRow As Long

lastCell = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastCell
myRow = i - 1
If Cells(i, 2) = "" Then Cells(i, 2) = Cells(myRow, 2)
Next

End Sub


--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"Mr. Low" wrote in message
...

-- Dear Sir,

I have the following worksheet :

A B C D
Ref Date Item Code Amount
1 DJ125 2.1.06 AX123 22.84
2 AX134 36.21
3 AP155 12.54
4 TX 122 6.54
5 DJ126 3.1.06 HH122 3.21
6 UY322 8.54
7 UN447 14.20
8 DJ127 4.1.06 HH449 3.21
9 KL996 2.65
10 DJ128 5.1.06 WE211 14.69
11 YY633 7.41
12 DJ129 6.1.06 ZZ441 22.50
...

1200 D250 6.5.06 CC250 38.21


Refernce DJ125 in column A is for cell A1..A4 and DJ126 is for cell A5..A7
and so on.

May I know what formula must i input at cell A2 and copy down to get the
reference in column A fill up quickly witout having to copy the reference
one
by one ?


Thanks

Low


A36B58K641