Code:
Sub STEP3()
Shell Environ$("COMSPEC") & " /c  COPY ""C:\Users\WolfieeeStyle\Desktop\Orders History\*.txt"" ""C:\Users\WolfieeeStyle\Desktop\Orders History\Alert..txt""", vbHide


End Sub

Thnx Alot Bakerman Sir For ur Great Help in solving this Problem

But I Have One issue
The Macro is working Perfect
I need to add Something In the Macro
This Macro will consolidate the notepad files & after that it should delete all the notepad files in that folder except Alert..txt files
So Plz Help for the same & I can't use kill macro to delete the notepad files bcoz the Number of notepad file can be anything(I can't Guess how much notepad files will be there )