Help with code to creat Reset button to clear cells and copy back the original formula

ALternativel when I add the following

Sub Reset()
    With Sheet2.Range("C5:C9")
        .Formula = "=if(B5<>"",VLOOKUP(B5,Sheet1!$B:$E,2,FALSE),"")"
    End With
End Sub

I get the follwoing error
Run Time 1004 Application error or Object Defined Error

Any suggestions?