Olá,
Tenho este código que salva dados que contenham "Expirada" na coluna 14 da Folha1, na Folha2.
Como faço para que ele salve, não por cima dos dados que já lá estão, mas que salve a partir da próxima linha vazia?
O que me falta aqui no código?
Obrigado

Sub transita()
lin = 2
linha = 2

Do Until Folha1.Cells(lin, 1) = ""
If Folha1.Cells(lin, 14) = "Expirada" Then
Folha2.Cells(linha, 1) = Folha1.Cells(lin, 1)
Folha2.Cells(linha, 2) = Folha1.Cells(lin, 2)
Folha2.Cells(linha, 3) = Folha1.Cells(lin, 3)
Folha2.Cells(linha, 4) = Folha1.Cells(lin, 4)
Folha2.Cells(linha, 5) = Folha1.Cells(lin, 5)

linha = linha + 1
End If
lin = lin + 1
Loop

End Sub