Dennys

estou aprendendo a utilizar o vba, estou criando uma macro para criar linhas numa coluna uma quantidade x de vezes, mas não estou conheço uma forma mais direta em que não precise criar diversas linhas. alguém poderia me ajudar a simplificar esse código ou fazer a mesma coisa de maneira mais eficaz? Sub Macro3() Dim LinhaPCod As Integer LinhaPCod = 0 Range("i1").Select Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "18" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop LinhaPCod = 0 Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "26" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop LinhaPCod = 0 Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "27" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop LinhaPCod = 0 Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "28" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop LinhaPCod = 0 Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "36" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop LinhaPCod = 0 Do Until LinhaPCod = Range("a1").Value ActiveCell.FormulaR1C1 = "39" ActiveCell.Offset(1, 0).Range("A1").Select LinhaPCod = LinhaPCod + 1 Loop