Macros para generar un archivo TXT sin considerar celdas vacías

Necesito un macros que me genere un archivo txt pero que no copie en el archivo txt las celdas vacías tengo una macros que me sirve pero no se si alguien podría modificarla, primero que me guarde el txt en el mismo lugar donde esta mi archivo excel y segundo que no me copie líneas en blanco porque deseo que omita las celdas vacías.

Private Sub CommandButton1_Click()
Open "c:\pruebaxx.txt" For Output As #1
Set Rango_txts = Range("A1:A10") ' Aquí defines el rango que contiene las celdas a recorrer.
For Each Celda_txt In Rango_txts
Print #1, Celda_txt.Value
Next Celda_txt
Close #1
MsgBox "El archvio txt se ha generado con exito..."
End Sub

*********************

Esta Figura es un ejemplo de mi macros de la parte del rango que deseo capturar

Esta otra es cuando ya ejecuto mi macros 

y esta ultima es como deseo que salga sin lineas en blanco