Mauro souza moura

Estou montando uma planilha de controle, e tenho uma duvida, minha intenção é fazer com que eu encontre um valor em uma coluna na planilha PLAN1 e copie a linha com esse valor e cole ela na proxima planilha PLAN2 sem perder a formatação, cores da planilha PLAN2, selecionando a linha de começo da copia. Traduzindo , como faço para que o codigo vba leia coluna B e se determinado valor for encontrado ele copie a linha até uma certa coluna e cole ela na minha PLAN2 (sem perder a fomatção que está nela) na proxima celula vazia (sem sobrepor) começando pela que eu selecionar e continue procurando até não haver mais valores da coluna b que procuro?? Comecei a fazer mais parei por aqui. Sub Copiar_Linha() <> Dim i As Range For Each i In Range("B18:B40") If i.Value = 2 Then i.Select ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy Sheets("2019").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial End If Next i <> End Sub Alguem pode me ajudar por gentileza ? .