Sub Moltiplica() 
 Sheets("Foglio1").Select 
 Range("A1").Select 
 x = 1 
 For n = 1 To 100 ' 
    b = Cells(n, 1).Value 
    c = Cells(n, 2).Value 
    Cells(n, 3) = b * c 
 Next n 
 x = x + 1 
 End Sub 


 Range("C1").Select
 Selection.Copy
 Range("C2").Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 ActiveCell.FormulaR1C1 = "=R[-1]C[-2]"
 Range("C3").Select