Можно попробовать так:  
 
Sub L_M()  
   Dim iRange As Range, iCell As Range  
   Set iRange = Range("A1:AR381")  
   For Each iCell In iRange  
       With iCell  
           Select Case .Value  
               Case "нет", "внут", "несъем": .Value = 0  
               Case "да", "ещё что-то": .Value = 1  
               Case Else: .Value = "ошибка"  
           End Select  
       End With  
   Next  
End Sub