Não entendi a demanda, mas vamos por parte
Sua rotina, se entendi, pode ser escrita +/- assim:

Sub Parcelamento()
Dim linha, contador
'
' Parcelamento Macro
'
If Range("B6").Value = "" Then
    MsgBox "Informe PARCELA"
    Exit Sub
End If

If Range("B4").Value = "" Then
    MsgBox "Informe VALOR"
    Exit Sub
End If

If Range("B3").Value = "" Then
    MsgBox "Informe DATA"
    Exit Sub
End If

linha = Range("F3").Row
Range("F3:N100").Clear

For contador = 1 To Range("B6").Value
    Range("F" & linha).Value = linha
    Range("G" & linha).Value = contador
    Range("H" & linha).Value = VBA.DateAdd("m", contador, Range("B3").Value)
    Range("I" & linha).Value = Range("B4").Value
    Range("I" & linha).Style = "Currency"
    linha = linha + 1
Next contador
End Sub

Veja se está em linha com o que espera

Sim é isso que estou fazendo, mas além disso quero criar abas automaticamente na planilha com os meses das parcelas.
Ex: se colocar 3 parcelas iria criar as três linhas 10/12/2019, 10/01/2020, 10/02/2020 e três abas Dez_2019, Jan_2020, Fev_2020 e essa parte das três abas que não estou conseguindo fazer, pois teria que pegar a data que esta na célula "H" e converter em número para poder colocar na rotina.

Estou quase chegando no que quero converti a data em um Número de série, só que estou com um erro na linha mes = UCase(Left(MonthName(i, True), 1)) + Mid((MonthName(i, True)), 2, Len(MonthName(i, True))) ERRO EM TEMPO DE EXECUÇÃO ‘5’: Argumento ou chamada de procedimento inválida.
Acho que corrigindo isso é só colocar esse código dentro da Sub Parcelamento().
Sub Inserir_plan_mês()

Dim a As String

a = Planilha5.Cells(3, 2).Value '(linha, col)
i = CLng(DateValue(a))
ano = "_" & Year(a)
Stop
Sheets.Add after:=Worksheets(Worksheets.Count)
mes = UCase(Left(MonthName(i, True), 1)) + Mid((MonthName(i, True)), 2, Len(MonthName(i, True)))
mesano = mes + ano
ActiveSheet.Name = mesano

End Sub

Experimente:

Sub Inserir_plan_mes()
Dim i As Integer
Dim MesAno As String
'Month retorna um numero de 1 a 12 que representa o mes da data requerida
i = Month(Planilha5.Cells(3, 2).Value)
'MonthName retorna o nome do mes, referente a um numero (de 1 a 12) passado
MesAno = UCase(MonthName(i, True)) & "_" & Year(Planilha5.Cells(3, 2).Value)
Stop
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MesAno
End Sub

Obrigado, pela ajuda.
Agora gostaria de saber como verifico se a planilha já existe para não criar.

Sub Parcelamento()
Dim linha, contador
Dim i As Integer
Dim MesAno As String
'
' Parcelamento Macro
'
If Range("B6").Value = "" Then
    MsgBox "Informe PARCELA"
    Exit Sub
End If

If Range("B4").Value = "" Then
    MsgBox "Informe VALOR"
    Exit Sub
End If

If Range("B3").Value = "" Then
    MsgBox "Informe DATA"
    Exit Sub
End If

linha = Range("F3").Row
Range("F3:N100").Clear

For contador = 1 To Range("B6").Value
    Planilha11.Select
    Range("F" & linha).Value = linha
    Range("G" & linha).Value = contador
    Range("H" & linha).Value = VBA.DateAdd("m", contador, Range("B3").Value)
    Range("I" & linha).Value = Range("B4").Value
    Range("I" & linha).Style = "Currency"
    i = Month(Planilha11.Cells(linha, 8).Value)
    MesAno = UCase(MonthName(i, True)) & "_" & Year(Planilha11.Cells(3, 2).Value)
    Sheets.Add after:=Worksheets(Worksheets.Count)
Deveria ter um IF aqui, mas não sei como colocar
    ActiveSheet.Name = MesAno

    linha = linha + 1
Next contador
End Sub

Uma possibilidade:

Sub Parcelamento()
Dim linha As Integer, contador As Integer, i As Integer 'Altere de integer para Long se atingir valores maoires que 32700
Dim Existe As Boolean
Dim MesAno As String
Dim sH As Worksheet
'
' Parcelamento Macro
'
If Range("B6").Value = "" Then
    MsgBox "Informe PARCELA"
    Exit Sub
End If

If Range("B4").Value = "" Then
    MsgBox "Informe VALOR"
    Exit Sub
End If

If Range("B3").Value = "" Then
    MsgBox "Informe DATA"
    Exit Sub
End If

linha = Range("F3").Row
Range("F3:N100").Clear

For contador = 1 To Range("B6").Value
    Planilha11.Select
    Range("F" & linha).Value = linha
    Range("G" & linha).Value = contador
    Range("H" & linha).Value = VBA.DateAdd("m", contador, Range("B3").Value)
    Range("I" & linha).Value = Range("B4").Value
    Range("I" & linha).Style = "Currency"
    i = Month(Planilha11.Cells(linha, 8).Value)
    MesAno = UCase(MonthName(i, True)) & "_" & Year(Planilha11.Cells(3, 2).Value)
        Existe = False
        For Each sH In Sheets 'verifica em todas as sheetes de existe com o nome definido em MesAno
            If sH.Name = MesAno Then Existe = True
        Next
        If Existe = False Then 'Se não existir cria a nova planilha
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = MesAno
        Else
            'Se existir defina aqui o que fazer, caso necessario
        End If
    linha = linha + 1
Next contador
End Sub