VBA

[missk]

Hi,

Pls help me with the below VBA progamming.

Starting with cell E5, the formula I want to apply = C5*D5, and I need
this to repeat itself down each cell until the data in Col C is
blank/empty.

[Leith Ross]

Hello missk,

To find the last row in column "C":
LastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row

To fill the Range using the Formula in cell E5:
ActiveSheet.Range("E5", "E" & LastRow).FillDown

Sincerely,
Leith Ross

[Ronbo]

In E5 put, =IF(C5<>"",C5*D5,"") and copy down.

"missk" wrote:

> Hi,
>
> Pls help me with the below VBA progamming.
>
> Starting with cell E5, the formula I want to apply = C5*D5, and I need
> this to repeat itself down each cell until the data in Col C is
> blank/empty.
>
>