Excel Macro - Copiar e Repetir

[Lan Mats Evangelista]

Galera, boa tarde.

Estou com uma planilha que preciso copiar a informação de várias linhas e duplicá-las baseado em um valor constante em uma célula.

No print é possível perceber na coluna "K" o número de vezes padrão que a linha se repetiria, até que finalizasse de transcorrer toda a planilha, são mais de 9000 linhas. 

 

Alguém poderia me ajudar, não tenho muito conhecimento de macro.

 

 

Ficaria mais ou menos assim.. as alterações em relação aos vencimentos e números de parcelas eu faria depois, porém, essa parte considero a primordial.. 

 

 

Obrigado.

[Erik Wesley]

Se for possível postar a planilha será melhor.

[Lan Mats Evangelista]

@Erik Wesley segue a planilha em anexo.

Fluxo_-_Base.xlsx

[Lan Mats Evangelista]

Consegui galera.

Citação

Sub Macro2()
'
' Macro2 Macro
'

'
    For j = 1 To 50
    For i = 1 To Sheets("Base_Fluxo").[k2].Value
    Sheets("Base_Fluxo").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Planilha1").Select
    Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Planilha1").Select
    Range("a1").Select

    Next i
    
    Sheets("Base_Fluxo").Select
    Range("A2").Activate
    Selection.Delete Shift:=xlUp
    
    Sheets("Base_Fluxo").Select
    Range("A2").Select
    If Range("A2") = "" Then
    While ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Wend
    Range(Selection, Selection.End(xlToRight)).Select
    Else
    End If
    Next j
End Sub

 

Deu trabalho, mas deu certo.. rsrs;