na aba "pendencias" tem os meus dados e nesta também esta a condição na coluna B que é o valor "P".

Ou seja, caso a linha na coluna B tenha o valor "P" copiar essa linha da coluna A até G para
a aba imprimir a partir da linha 6 coluna A.

Nossa meu cérebro deu nó. Heheheh, tem como explicar melhor.

deve ser algo assim:

Sub Imprimir_GT()

'Etapa 1 - definir quais informações serão copiadas segundo as prioridades escolhidas
    
    Dim Verifica_1 As Integer
        Verifica_1 = MsgBox("Para imprimir, você não deve deixar linhas filtradas, ou pode incorrer em erro. Você lembrou de retirar o filtro?", vbYesNo, "Atenção")
            'If_1
            If Verifica_1 = vbYes Then
    
    Dim Verifica_2 As Integer
        Verifica_2 = MsgBox("Você lembrou de marcar acima quais linhas serão impressas?", vbYesNo, "Atenção")
            'If_2
            If Verifica_2 = vbYes Then
            
'Etapa 2 - copiar as informações para a planilha IMPRIMIR
     
Application.ScreenUpdating = False

    Sheets("imprimir").Select
        Range("A6:G1048576").Clear

    Sheets("pendências").Select
    i = 6
    Do While Not IsEmpty(Cells(i, "A"))
        If Cells(i, "B").Value = "P" Then
            Sheets("pendências").Range(Cells(i, "A"), Cells(i, "G")).Copy Sheets("imprimir").Range(Cells(j, "A"), Cells(j, "G"))
            j = j + 1
        End If
        i = i + 1
    Loop

Application.ScreenUpdating = True

End Sub

Obrigado Gtsalikis!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.