Eliminar filas

Buenas tengo un problema con una macro y me he quedado estancado en como eliminar una fila que cumpla un determinado criterio y a su vez elimine 5 filas antes de ella, se como busque el criterio por medio del siguiente código pero que elimine las que les antecede a su vez no lo he logrado
Sub WELS()
Dim M As Integer
M = 6
Do Until Cells(M, 1) = "Nº Oper."
M = M + 1
Loop
Rows(M - 1).Select
End Sub