Need Macros for Given Formulas

[madhuchelliah]

Hello Guys, I need macros for the below mentioned formulas. Please help.

=LEFT(IPC!A4,FIND(" ",IPC!A4)-1)

<colgroup><col style="width:48pt" width="64"> </colgroup><tbody>
[TD="width: 64"]

<colgroup><col width="64"></colgroup><tbody>
[TD="width: 64"]=TRIM(RIGHT(SUBSTITUTE(IPC!A2," ",REPT(" ",90)),270))

[/TD]

</tbody>

[/TD]

</tbody>