Boa tarde,

Sub linhanova()
n = 3
    
    While Cells(n, 2) <> ""
        Cells(n, 1).Select
        
        n = n + 1
    
    Wend
      
      Cells(n, 1).Select
      
      Rows(n).Insert shift:=x1Down
      Range("An:Pn").Select
      
    
      
              
    End Sub

Gostaria de declarar a variável "n" fazendo com que ela seja parte da célula, exemplo se n = 1 então range("A1,P1"), se n = 2 então range("A2,P2"), o que estou fazendo de errado?

Atenciosamente