Boa tarde Davi,

Cara, resolvi o seu problema... mas não é tão simples assim...
Se chegar no mês de junho e tiver 10 parcelas? Vai para 2016.

Você não pode limitar as planilhas.
Eu preferia fazer como um banco de dados e uma geral onde seleciona o mês e é buscado os valores.

Utiliza isso:

Option Explicit

Sub Processar()
Dim i           As Integer
Dim nParcela    As Integer
Dim UltL        As Long
Dim wsLanc      As Worksheet

Application.ScreenUpdating = False
Application.Calculation = xlManual
Set wsLanc = ThisWorkbook.Worksheets("Lançamento")

nParcela = wsLanc.Range("F3").Value

    wsLanc.Range("B3:G3").Copy

    For i = Month(wsLanc.Range("B3").Value) To nParcela
        UltL = ThisWorkbook.Worksheets(i + 1).Range("A" & Rows.Count).End(xlUp).Row + 1
        ThisWorkbook.Worksheets(i + 1).Range("A" & UltL).PasteSpecial Paste:=xlPasteValues
    Next i

Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Segue anexo funcionando também.

Qualquer coisa da o grito.
Abraç