Imprimir los registros de un listbox

Tengo un botón de comando para imprimir con el siguiente código:

Private Sub CommandButton2_Click()
' desactivamos la actualización de pantalla
Application.ScreenUpdating = False
'hacemos visible la hoja auxiliar con el resultado
Sheets("Auxiliar").Visible = xlSheetVisible
'exportamos los datos a PDF y los guardamos automáticamente en mis documentos permitiendo su visualización previa.
Sheets("Auxiliar").ExportAsFixedFormat Type:=xlTypePDF, Filename:="Profesional", OpenAfterPublish:=True
'ocultamos la hoja auxiliar
Sheets("Auxiliar").Visible = xlSheetVeryHidden
'refrescamos pantalla
Application.ScreenUpdating = True
End Sub

El código funciona pero al tener tantos campos no me caben todos en una misma página. Existe la posibilidad de que sólo imprima los campos en los que existen registros, es decir, si en total hay 23 campos me gustaría que solo imprimiera los que tienen un valor y que no impriman los que estén vacíos...

¿Es posible?