やはりシートのレイアウトが想定していたものと全然違います。もっと早くに見せてもらうべきでした。
「削除判定」の以下を変更してみてください。
.Range(\u0026quot;A1\u0026quot;).CurrentRegion.AutoFilter 1, \u0026quot;\u0026lt;\u0026gt;総合職\u0026quot;
.Range(\u0026quot;A1\u0026quot;).CurrentRegion.EntireRow.Delete
↓
.UsedRange.AutoFilter 1, \u0026quot;\u0026lt;\u0026gt;総合職\u0026quot;
.UsedRange.EntireRow.Delete
ただし 1 行目には「総合職」は無いものとしています。そうでないケースもあり得るならば返信ください。