Olá, Quirion.
Se essa célula estiver na mesma coluna (peguei por exemplo a coluna A da primeira planilha)
Sub InsereLinha()
Dim cont as Long
Dim ultimalinha as Long
ultimalinha = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
For cont = 1 To ultimalinha
If Cells(cont, 1).Value = 1 Then Rows(cont).Insert
Next cont
End Sub
Qualquer problema volte a postar
Se a informação ou resposta foi útil, clique na mãozinha próxima ao botão "CITAR no canto superior direito.
Se o seu problema foi resolvido, clique no V verde para aceitar como resposta.
Postado : 12/05/2016 12:31 pm