in the OvertimeHours Sheet, I am trying to paste the following formulas:

in cell A2 =--MID(Data!$A$6,MATCH(TRUE,INDEX(ISNUMBER(--MID(Data!$A$6,ROW(INDIRECT("1:"&LEN(Data!$A$6))),1)),),0),10)

in cell A3 =--TRIM(RIGHT(Data!$A$6,10))

How could I use vba to do this? Thanks