Efficient multiplication in VBA with macros

Originally Posted by jindon

2) Few examples

Sub test1()
    With Sheets(3)
        .[d5:d25] = .[d5:d25*r1]
    End With
End Sub

Sub test2()
    With Sheets(3)
        .[r1].Copy
        .[d5:d25].PasteSpecial , xlMultiply
    End With
End Sub

Thank you very much for your fast answer.

The both code works properly and so fast!

Thanks a lot!.