Excel- Reemplazar Datos

Sub Replace()

'

' Replace Macro

'

'

Cells.Replace What:="Mexico", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.Replace What:="COMPANY", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Application.CutCopyMode = False

Cells.Replace What:="Inventory CODE------", Replacement:="", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.Replace What:= _

"DATE-- WAREH. BIN TT CT BATCH NUMBER BATCH ID---- BT ORDER----- REF.-I AMOUNT QTY PRICE/EA QTY AMOUNT PRICE/EA" _

, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _

False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:= _

"=============================================================================================================================================================" _

, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _

False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="Inventory VALUE:", Replacement:="", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.Replace What:="------------- ------------ ------------", Replacement _

:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _

SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:= _

"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" _

, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _

False, SearchFormat:=False, ReplaceFormat:=False

End Sub

...