VBAを修正したいのですが、、、、、

Sub ImportTextFile() Dim DestBook As Workbook, SourceBook As Workbook Dim DestCell As Range Dim RetVal As Boolean Application.ScreenUpdating = False Set DestBook = ActiveWorkbook Set DestCell = ActiveCell RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt") If RetVal = False Then Exit Sub Set SourceBook = ActiveWorkbook Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy DestBook.Activate DestCell.PasteSpecial Paste:=xlValues SourceBook.Close False End Sub 上記のコードは指定したテキストファイルをシートに出力するものなのですが、 任意で複数のテキストファイルを選んだ時に、同じシートに選んだ複数のテキストファイルを Ａ1セルをはじめとしてをＡ列の最終セルにすべてのファイル順番に張り付けたいのです。 今の状態だとウィザード画面でいちいち設定しないといけないのでテキストをそのままの状態で いいのでウィザード画面を飛ばしてできればなおいいです。 ぜひ、アドバイスお願いします。