Visual Basic Copia de valores no VBA

[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 ? .