Amigos,
bom dia,

Estou tentando adaptar um código que realizamos por aqui mesmo, como ajuda @klarc28, segue o código:

Sub teste()

Application.ScreenUpdating = False


Dim linhaInicial As Long
linhaInicial = 10
Dim x, y, z, i As Integer
Dim r As Range

While Sheet2.Range("B" & linhaInicial).Value <> ""
    Rows(linhaInicial + 1 & ":" & linhaInicial + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & linhaInicial & ":H" & linhaInicial).Select
    Selection.Copy
    Range("B" & linhaInicial + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Range("C" & linhaInicial).Value = "espelho"

    If Right(Range("D" & linhaInicial).Value, 1) = "D" Then
    Range("C" & linhaInicial + 1).Value = "débito"
    'se quiser retirar a letra D do valor, faça assim:
    
    
     Range("D" & linhaInicial + 1).Value = CDbl(Left(Range("D" & linhaInicial).Value, Len(Range("D" & linhaInicial).Value) - 2))
    
    Range("D" & linhaInicial).Value = CDbl("-" & Range("D" & linhaInicial + 1).Value)
    Else
    'se quiser retirar a letra C do valor, faça assim:
     Range("D" & linhaInicial).Value = CDbl(Left(Range("D" & linhaInicial).Value, Len(Range("D" & linhaInicial).Value) - 2))
        Range("C" & linhaInicial + 1).Value = "crédito"
        'caso o crédito não precise multiplicar por menos 1, retire-o desta linha:
            Range("D" & linhaInicial + 1).Value = CDbl("-" & Range("D" & linhaInicial).Value)

    End If
   linhaInicial = linhaInicial + 2
   Wend
   Application.CutCopyMode = False

Agora com os dados do meu anexo, está dando tipos incompatíveis...

Alguém consegue me explicar e me ajudar a resolver ?

Obrigado!!!