Try

Sheet1.Range("A1:J815209").Replace What:="", Replacement:=0, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False