Спасибо! за варианты

Я сделал снизу вверх и все заработало:
For i = Laststr To 13 Step -1
             If Cells(i, 3) = "150_1" Then
             Range(Cells(i, 1), Cells(i, 9)).Interior.Color = 14281213
             Cells(i, 10).Interior.Color = 13561798
             Rows(i).Cut
             Rows(Spdr).Insert
             k = k + 1 'это будет использоваться потом
             End If


еще много чего нагородил) но работает как мне нужно

Доброго дня!
Помогите пожалуйста. Я начинающий. Необходимо найти строки где в столбце 3 указано "150", подвести итоги без 150, после итогов вставить строки с "150" и после вставит строку с итогами в том числе 150. Постарался обозначить в файле, чтобы понятно было.

По моему коду не все строки перемещает. Буду очень признателен.