AfonsoMira

Boas experimente desta forma. Sub Teste() Dim P As String, UltimaLinha As String, Lin As String, i As Integer P = Sheets("Planilha1").Cells(Rows.Count, "A").End(xlUp).Row UltimaLinha = Sheets("Plano de Produção").Cells(Rows.Count, "B").End(xlUp).Row Lin = P For i = 16 To UltimaLinha If Sheets("Plano de Produção").Cells(i, 2) = "PROD" Then Sheets("Planilha1").Cells(Lin, 1) = Sheets("Plano de Produção").Cells(i, 3) Lin = Lin + 1 End If Next End Sub Penso que o erro esteja na parte em que atribui o valor a varíavle Ultimalinha, pois tinha na coluna A e troquei para a B, pois na planilha que enviou, na coluna A não tem informação. Fazendo com que assim saltase o Loop. Espero ter ajudado