Code:
Sub STEP6()
 Dim w1 As Workbook
 Set w1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Upstox\Merge.xlsx") ' change the file path
w1.Worksheets.Item(1).Columns("I:K").Copy
w1.Worksheets.Item(1).Columns("I:K").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
w1.Save
w1.Close
End Sub


Doc Sir I made this
correct the code if its wrong
Thnx Doc Sir for ur Great Guidance Sir