Вставляете свои данные на лист вложенной книги и жмете кнопку
Там макрос, он все сделает
[vba]Код
Sub tt()
r1_ = Range("A" & Rows.Count).End(3).Row
r0_ = 2
If r1_ < r0_ Then Exit Sub
n_ = r1_ - r0_ + 1
ar = Range("B" & r0_).Resize(n_, 2)
Application.ScreenUpdating = 0
Application.Calculation = xlCalculationManual
For i = n_ To 2 Step -1
If ar(i, 2) = 1 Then
Rows(i + 1).Insert
If ar(i, 1) = 0 Then
Range("D" & i + r0_ - 1) = "#"
Else
Range("D" & i + r0_ - 1) = "$"
End If
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = 1
End Sub
[/vba]