If I understand, enter the followingi n D1

=B1*C1

and drag it down.

Assuming that your data starts in row 2, place =B2xC2 in cell D2.
Click in cell D2 and you will see a little black box in the lower
right hand corner.  Double click that box to auto-fill down the rest
of the column.  If, for some reason, there are blanks in column C, the
auto-fill will stop at that row.  If that is the case, simply click on
the little black box and drag it down column D as far as needed.

HTH

Type the formula in the first cell in column D.  Highlight all of Column D
where you would like the formula to be (including the cell with the formula)
and hit CTRL D.  This will fill it in all the way down.

i think this will help u ?

Sub calc()
Range("d2").Select
Do Until Selection.Offset(0, -3).Value = ""
Selection.Value = "=RC[-2]*RC[-1]"
Selection.Offset(1, 0).Select
Loop
Range("a1").Select
End Sub

If you want the rows to remain equal ie: row 1 information to remain on row 1
etc. then simply do a copy/paste drag (highlight the top formula, point to
the bottom right corner of the cell, and drag it down the column).  The
formula will adjust for each row.  If you want a more specific formula then
you'll have to do a hard copy and paste formula (when you paste it should
give you the option to paste the formula)

Marie

Thank you all for such swift replies...
Interestingly there is, it appears, a number of ways to do it..
thanks a million again..

Mark