sum_up = Range(Cells(245, 18), Cells(245, 18)).End(xlUp).Rows.Count

for i = 1 to 100
  If...then
    if...then
    else goto label1    
    endif
  endif
label1:
next i

If Len(a(i, 6)) Then .Item(a(i, 6)) = .Item(a(i, 6)) + a(i, 9)

If Len(a(i, 6)) Then

.Item(a(i, 6)) = .Item(a(i, 6)) + a(i, 9)

Dim a As String
Set main = ActiveWorkbook

exported = Application.GetOpenFilename(Title:="Âûáåðèòå ôàéë âûêà÷êó èç Q4T")
Workbooks.Open Filename:=exported
Set from = ActiveWorkbook

lastrow = Range(Range("A1"), Range("A1").End(xlDown)).Rows.Count
plant = Cells(lastrow, 13).Value
For i = 2 To lastrow
        If Cells(i, 13).Value = plant Then
        Cells(i, 13).Interior.Color = 5296274
        End If
Next i

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=main.Sheets(1).Cells(2, 9).Value & plant & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Set plantsh = ActiveWorkbook

lastrowpl = 1
from.Activate
For i = 2 To lastrow
        from.Activate
        If Cells(i, 13).Interior.Color = 5296274 Then
        Range(Cells(i, 1), Cells(i, 1)).EntireRow.Copy
        plantsh.Activate
        Cells(lastrowpl, 1).PasteSpecial xlPasteValues
        lastrowpl = lastrowpl + 1
        from.Activate
        End If
Next i

For i = lastrow To 2 Step -1
If Cells(i, 13).Interior.Color = 5296274 Then
Range(Cells(i, 1), Cells(i, 1)).EntireRow.Delete xlUp
End If
Next i