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

Try this code

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