I have this macro from lotus i need to convert to excel or write a macro like
this in excel. Any help would be appreciated

ZERO {GOTO}a:c126~
{FOR a:ad7;1;3200;1;enter}
{GOTO}a:D126~
{FOR a:ae7;1;3200;1;erase}
{GOTO}a:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";a:c1..a:n3050}
{GOTO}b:c126~
{FOR b:ad7;1;3200;1;enter}
{GOTO}b:D126~
{FOR b:ae7;1;3200;1;erase}
{GOTO}b:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";b:c1..b:n3050}
{GOTO}c:c6~
{FOR c:ad7;1;3200;1;enter}
{GOTO}c:D6~
{FOR c:ae7;1;3200;1;erase}
{GOTO}c:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";c:c1..c:n3050}
{GOTO}d:c6~
{FOR d:ad7;1;3200;1;enter}
{GOTO}d:D6~
{FOR d:ae7;1;3200;1;erase}
{GOTO}d:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";d:c1..d:n3050}
{GOTO}e:c6~
{FOR e:ad7;1;3200;1;enter}
{GOTO}e:D6~
{FOR e:ae7;1;3200;1;erase}
{GOTO}e:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";e:c1..e:n3050}
{GOTO}f:f1~
{EDIT-REPLACE-ALL "2009";text;"2010";f:c1..f:n3050}
{QUIT}

ENTER {if @cellpointer("PROTECT")="0"}0~
{D}

ERASE {if @cellpointer("PROTECT")="0"}/re{r}{R}{R}{R}{R}{R}{R}{R}{R}{R}~
{D}