Code:
Sub STEP16()
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls")
Set ws1 = wb1.Worksheets.Item(1)
With ws1

    Range("O2").Select
    ActiveCell.FormulaR1C1 = "100"
    Range("O2").Select
    Selection.Copy
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
        
End With
        
wb1.Save
wb1.Close

End Sub