Sub Productcolumns()
Application.ScreenUpdating = False
Do While ActiveCell.Offset(0, -1) <> ""
With ActiveCell.Select
ActiveCell.Value = WorksheetFunction.Product(Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, -1)))
ActiveCell.Offset(1, 0).Select
End With
Loop
Application.ScreenUpdating = True
End Sub