Всем здравствуйте!  
Ниже код там как то надо подправить вторую строчку. Он на листе Сводный отчёт ищет в первом столбце слово ТРК и если содержится то перед ним вставляет несколько пустых строк. Только теперь надо что бы он не только на слово ТРК реагировал а ещё например на ТРК-0 илил 3 варианта например ТРК ТРК-0 и ТРК-1. Я просто не знаю как написать ТРК или ТРК-0.  
 
Уважаемые форумчане прошу Вас помогите пожалуйста, буду очень признателем Вам.  
 
 
 
Dim x As Range  
Set x = Worksheets("Сводный отчёт").[a1:a400].Find("ТРК", , xlValues, xlPart)
If Not x Is Nothing Then  
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ЭТО ВАРИАНТ ЕСЛИ СОДЕРЖИТСЯ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
For Z = 0 To 3000 Step 1  
If Cells(4 + Z, 1) = "ТРК" Then  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Rows(4 + Z).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove  
Exit For  
End If