Excel - Exportar datos en formato .LST

Sub Export_LST()

    With Sheets("DATOS")

        Open "Fichero.LST" For Output As #1

        Fila = 2

        While Cells(Fila, "A") <> Empty

            If .Cells(Fila, "D") <> Empty Then

                Print #1, .Cells(Fila, "A");

                Print #1, .Cells(Fila, "B");

                Print #1, Trim(Str(.Cells(Fila, "D")));

                Print #1, Trim(Str(.Cells(Fila, "I")))

            End If

            Fila = Fila + 1

        Wend

    End With

    Close #1

End Sub

Sub Export_LST()

    With Sheets("FORMATO")

        Open "Fichero.LST" For Output As #1

        Fila = 2

        While Sheets("DATOS").Cells(Fila, "A") <> Empty

            Print #1, .Cells(Fila, "A")

            Fila = Fila + 1

        Wend

    End With

    Close #1

End Sub