Você quer por exemplo que quando você aperte um botão, verifique essas ocorrências e então inclua as linhas no formato que especificou na planilha! Correto?

Boa tarde!!

Sua dúvida está confusa!
Tente adaptar

Sub Eu_Nao_Entendi()
    Dim rngA As Range
    Dim cell As Range
     
    Set rngA = Range("E1", Range("E65536").End(xlUp))
    For Each cell In rngA
        If cell.Value = "BA" Then
            'MsgBox cell.Address
            cell.Offset(1, 0).Value = "AleVBA"
        End If
    Next cell
     
End Sub

Att

Strokery e alexandrevba,

na verdade, gostaria que a linha incluída(cor verde do exemplo) seja idêntica a linha de cima(cor amarela do exemplo), mantendo inclusive as fórmulas, alterando apenas a coluna E (de BA para SI).

Obrigado!!

Na verdade o exemplo melhor que eu deveria ter postado aqui segue abaixo agora. Pois preciso que seja incluída linha entre linhas já preenchidas.

Como está:
1 2 3 4 5 6 7 8 9 10
G125 DLD0001 01012015 BA - 0 0 0 0 0
** ** ** ** ** ** ** ** ** **

1 2 3 4 5 6 7 8 9 10
G125 DLD0001 01012015 BA - 0 0 0 0 0
G125 DLD0001 01012015 SI 0,80 0 0 0 0 0 (Linha incluida) - Copiada linha de cima mantendo as fórmulas.
** ** ** ** ** ** ** ** ** **

As linhas com ****** são linhas preenchidas. Preciso da inclusão da linha antes dela.