Boa tarde pessoa, gostaria muito de uma ajuda porém até agora não obtive retorno, conto com o conhecimento de vocês.
Possuo 13 planilhas no total, a primeira se chama Fluxo e na coluna A tem as seguintes informações:
Descrição
Forma de pgto
Observação
Dados Bancarios
Mês
e as demais são os meses do ano: JAN2016, FEV2016 e nelas contem os mesmos dados da planilha Fluxo porém cada dado em uma linha e assim sucessivamente. Eu uso uma macro e atribui essa macro em um botão (uma forma) para realizar o seguinte procedimento: Insiro todos os dados e clico no meu botão para lançar o pagamento e esta faz normalmente porém na planilha JAN2016 e gostaria de melhorar isso, minha dúvida e minha ideia é:
No campo Mês tem uma lista suspensa com os nomes dos meses, e eu gostaria de que quando eu for lançar os dados eu vou lá e escolho o mês de abril e quando eu for lançar, esses dados que acabei de lançar for para a planilha ABR2016. Outro exemplo
Coloquei a descrição, pgto, observação, dados bancarios e escolhi o mês de dezembro, quando for clicar para lançar o mesmo lançar na planilha DEZ2016.
Segue o meu atual código

Sub btnPagamento_Clique()
Set janeiro = Sheets("JAN2016").ListObjects("janeiro")

Set novaEntrada = janeiro.ListRows.Add

novaEntrada.Range(1, 1) = Sheets("Fluxo").Range("B5").Value
novaEntrada.Range(1, 2) = Sheets("Fluxo").Range("B7").Value
novaEntrada.Range(1, 3) = Sheets("Fluxo").Range("B9").Value
novaEntrada.Range(1, 4) = Sheets("Fluxo").Range("B11").Value
novaEntrada.Range(1, 5) = Sheets("Fluxo").Range("B13").Value
novaEntrada.Range(1, 6) = Sheets("Fluxo").Range("B15").Value

MsgBox "Pagamento efetuado com sucesso!"
Sheets("Fluxo").Range("B5:B15").ClearContents
End Sub

janeiro = é o nome da minha tabela da planilha JAN2016, pois formatei os dados dos meses como tabela.
JAN2016 é o nome da planilha
as celulas b5, b7, b9 é os campos da minha planilha Fluxo.

Se alguém puder me ajudar iria agradecer muito.