Archivo .txt delimitada por pipes

Estoy utilizando la siguiente macro, funciona bien, pero al generar los datos, solo me deja las columnas por fila de los que tienen datos. Necesito que si no hay datos tambien me la separe:

Ej: dato1-dato2-nulo-nulo-dato5

quede así el archivo txt: dato1|dato2|||dato5

Sub proceso()
'por luismondelo
ruta = ActiveWorkbook.Path & "\"
Open ruta & "ejemplo.txt" For Output As #1
Range("a2").Select
Do While ActiveCell.Offset(0, 1).Value <> ""
ubica = ActiveCell.Address
Do While ActiveCell.Column < 75
If ActiveCell.Value <> "" Then
lista = lista & "|" & ActiveCell.Value
End If
ActiveCell.Offset(0, 1).Select
Loop
lista = Mid(lista, 2, Len(lista) - 1)
Print #1, lista
lista = ""
Range(ubica).Offset(1, 0).Select
Loop
Close #1
MsgBox "Se ha creado el txt en la ruta: " & ruta
End Sub