I think this does the same as your code (which you could verify).

Sub Reformat_macro()
    ' Keyboard Shortcut: Ctrl+Shift+M

    Columns("A").Delete
    Rows(1).Delete
    Columns("B").Delete
    Range("C:C,D:D,I:I,J:J,K:K,L:L,M:M,N:N").Delete

    Cells.Replace What:="9999428", Replacement:="cash_usd", _
                  LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="3390-2261", Replacement:="ICP"
    Cells.Replace What:="1208-2340", Replacement:="IMG"
    Cells.Replace What:="7122-7716", Replacement:="GI"
    Cells.Replace What:="4125-7242", Replacement:="G"
    Cells.Replace What:="4810-6156", Replacement:="AG"
    
    Cells.Replace What:="3243-9703", Replacement:="Delete"
    Cells.Replace What:="1623-2668", Replacement:="Delete"
    Cells.Replace What:="7461-9011", Replacement:="Delete"
    Cells.Replace What:="5838-6867", Replacement:="Delete"
    Cells.Replace What:="7103-2902", Replacement:="Delete"
End Sub
Now you want to move the cells containing "GI" to sheet GI? Just individual cells or entire rows? Move them to the bottom of exsiting data?