VBA delete rows based on cell value

Hello
please i need your help

I am trying to create VBA to delete the row on a Worksheet named "Sheet1" when the value of the cell in Column G contains X
so example value in Cell G3 = X, therefore row 3 should be deleted.
The number of rows can vary with a max of 100 lines

Thank you.