Dim i As Integer
Dim k As Long
i = 7
k = 0
l = 0
m = 0
N = 0


'---------------------------------------
While Cells(i, 4).Text = "SGSIN" Or Cells(i, 4).Text = "MYPKG"
    k = k + Cells(i, 11).Value
    l = l + Cells(i, 12).Value
    m = m + Cells(i, 13).Value
    N = N + Cells(i, 14).Value
    i = i + 1
Wend

 If i > 7 Then
Cells(i, 4).EntireRow.Insert
Cells(i, 11).Value = k
Cells(i, 12).Value = l
Cells(i, 13).Value = m
Cells(i, 14).Value = N

End If

    Range("D" & i).Value = "SEA"

 '---------------------------------------
k = 0
l = 0
m = 0
N = 0
i = i + 1
While Cells(i, 4).Text = "INMAA" Or Cells(i, 4).Text = "LKCMB" Or Cells(i, 4).Text = "INCOK"
    k = k + Cells(i, 11).Value
    l = l + Cells(i, 12).Value
    m = m + Cells(i, 13).Value
    N = N + Cells(i, 14).Value
    i = i + 1
Wend

If i > 7 Then
Cells(i, 4).EntireRow.Insert
Cells(i, 11).Value = k
Cells(i, 12).Value = l
Cells(i, 13).Value = m
Cells(i, 14).Value = N

End If

If i > 7 Then
Cells(i, 4).EntireRow.Insert
Cells(i, 11).Value = k
Cells(i, 12).Value = l
Cells(i, 13).Value = m
Cells(i, 14).Value = N

End If