Insert row before over a row containing a word vba excel

Question

I am trying to insert a blank row above a row that contains a specific word. But so far I can only insert it below this row.

Sub INSERTROW()
 Dim c As Range