Sub Forを下から処理する()
    
    'Step -1を付けると減少する
    '行削除の場合、削除すると処理中に行数が変わるので下から処理
    For 行 = 7 To 2 Step -1
    
        If Range("A" & 行) = "B社" Then 'B社の場合
        
            Rows(行).Delete 'その行を削除する
        
        End If
    
    Next 行

End Sub