Не вникая в суть обработки можно отметить, что какие-либо действия с Target внутри Worksheet_Change снова вызывают событие изменения, возникает рекурсивный вызов из процедуры самой себя:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Target.ClearContents  
End Sub  
 
Нужно отключать события перед тем, как что-то делать с Target, чтобы исключить рекурсивный вызов события Worksheet_Change:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Application.EnableEvents=False  
Target.ClearContents    
Application.EnableEvents=True  
End Sub

Вот Спасибо!  
очень помогло  
а я от необразованности думал, что у меня в другом файле эти строки лишние