E列が男の行を削除する

Sub 条件を満たす行を削除()
  
   'E列が男の行を削除する

  '変数宣言
  Dim 最終行 As Long
 
  '変数宣言
  Dim 行番号 As Long
  
      'A列の最終行まで
      最終行 = Cells(Rows.Count, 1).End(xlUp).Row
    
      '画面を止める
      Application.ScreenUpdating = False

        '最終行から2行目まで下から処理する
        For 行番号 = 最終行 To 2 Step -1
       
             'E列が男性だった場合
            If Cells(行番号, 5).Value = "男" Then
               
               '男性が入っている行ごと削除
               Cells(行番号, 5).EntireRow.Delete
      
            End If
          
        Next 行番号
  
      '画面止めるの解除
     Application.ScreenUpdating = True

End Sub