Opa, tudo certo?

Antes de tudo na sua macro tente colocar esses códigos
A parte em vermelho você tem que especificar até que linha deseja verificar, no caso vai começar da linha 7 passando na coluna "B" apenas e vai até a linha qual você especificar...

Dim lin As Integer, encontrado As Integer

lin = 7
encontrado = 0

Do Until lin > 20
If Range("b" & lin).Value <> "" Then
encontrado = 1
Exit Do
End If
lin = lin + 1
Loop

If encontrado = 0 Then
MsgBox "Não há dados a serem impressos!!!"
Exit Sub
End If

Visite meu blog:

programacaopassoapasso.wordpress.com

Fiquei em duvida se quer conferir a Coluna iniciando em "B7", conforme passou o colega Edivan, ou quer o Range "B:F", só para exemplificar, mas é só ajustar com ema variavel que verifica a ultima linha, ou se for range fixo é só alterar:

Sub VerificaVazias()
    Dim rngArea As Range
    Dim x As Object
    
    Set rngArea = Range("B7:F11") ' ou "B7:B20" para coluna
    
    For Each x In rngArea
        
        If x.Value = Empty Then
            
            MsgBox "celula vazia em : - " & x.Address(0, 0)
            x.Select
            
        End If
    Next x
    
End Sub

Olá Edivam e Mauro, boa noite. Esta macro deve imprimir o intervalo B3:F. Acho que nisso vocês não tem dúvida. A questão é que o preenchimento de dados nesta planilha é executado por outra macro. Esta "macro que preenche os dados" lança os valores a partir da célula B7 (intervalo de preenchimento até F). Da forma como esta a macro que tenho e enviei a vocês, ela imprimirá o que já existe entre B3:F, no entanto eu desejo que esse comando (da macro PDF_Salva) só seja executado se houver dados (preenchimentos) de B7 abaixo e caso NÃO haja a macro pare e informe não haver dados a serem impressos/salvos.
Espero ter esclarecido.

toni, qualquer uma das rotinas citadas fazem a verificação se contem dados, e como já tem a rotina para Imprimir/Salvar é só colocar instrução chamando a sua macro apos a verificação, por exemplo :
Na dica do Edivan, altere a linha :

If encontrado = 0 Then
MsgBox "Não há dados a serem impressos!!!"
Exit Sub

else

Call SuaMacro

End If

Na que indiquei :

If x.Value = Empty Then

MsgBox "celula vazia em : - " & x.Address(0, 0)

Exit Sub
else

Call SuaMacro

End If