How to delete 19 row after the cell which has certain value

i have done a code to delete the row which has "Trip" in any cell in this row as below

Sub DeleteRows()
Dim c As Range
Dim SrchRng

Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
Do
Set c = SrchRng.Find("/ Trip", LookIn:=xlValues)
If Not c Is Nothing Then c.EntireRow.Delete

Loop While Not c Is Nothing
End Sub


but aslo i need to delete 19 rows after the deleted row
please help