Como simplificar uma macro VBA para criar múltiplas linhas em uma coluna?

[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