Como copiar um intervalo repetidas vezes, baseado em um célula

por alexandrevba Ter Out 29, 2013 8:39 am

Bom dia!!

Código:: Sub CopiarIntervaloVariasVezes() 'Como copiar um intervalo repetidas vezes, baseado em um célula Dim LR As Long, i As Long If IsNumeric(Range("J2")) Then 'Verifica se é número If Range("J2").Value >= 1 Then 'Verifica se é maior ou igual a 1 Range("B2:G6").Copy 'Copia os dados For i = 1 To Range("J2").Value 'Loop para repetir quantas vezes deverá ser copiado LR = Range("B" & Rows.Count).End(xlUp).Row + 2 'Conta a tabela (Àrea de copia), dá um salto Range("B" & LR).PasteSpecial Paste:=xlPasteAll 'Cola os dados Next i Application.CutCopyMode = False End If End If End Sub