hi, fred
sorry, it should be .Columns(*)
i=counta(sheets("BFCCL").Columns(3) 'or 1,2
is used for counting how many rows in the source data range.
for example:
A B C
1 a 2 1.5
2 b 3 1.2
..
..
10 b 1 2.4

you can use i=counta(sheets("BFCCL").Columns(3) to get i=10
if there are some blank cells in column C, you can use .Columns(1) or
..Columns(2) to caculate the number of rows.