Hi Tom,


Thansk for your reply.


The gap from where "1", is typically in A6, yet the location for "2"
could be anywhere below , e.g. in A7, A9 , A20 etc.

After A6 the cells below are blank until there is a value of 2 in
whichever cell it is.

However If(IsBlank) works within Excel via the addition of a column
yet I wish to "hardwire" this in VB. Any suggestions?
For example (1 uis normally static - actually in A6), the rest of the
cells below are blank, due to a crosstab, until 2 occurs in a cell,
then below the cells are blank until 3, etc, down to 6 currently. The
reason for filling int he blanks is so that a filter can be put in
place:


A1: 1
A2:
A3:
A4:
A5:
A6:
A7: 2
A8:
A9:
A10:
A11:
A12:
A13:
A14 3