スイマセン。新たな問題が発生しました。
大変申し訳ありませんが、分かる方お願いします。

Sub Macro6()

Dim boCheck As Boolean
Dim filename As String

boCheck = Application.Dialogs(xlDialogOpen).Show
filename = ActiveWorkbook.Name

If boCheck = False Then
MsgBox "キャンセルが選択されました。処理を中止します。"
Exit Sub
Else
Application.DisplayAlerts = False
ActiveSheet.Range("BF6:BI105").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks(filename).Close SaveChanges:=False
ActiveSheet.Range("BF6:BI105").Select
ActiveSheet.Paste
End If
End Sub

上記を実行すると、クリップボード内でセルの値をまとめてしまいます。
例：BF6ｾﾙ　BG6ｾﾙ　BH6ｾﾙ　BI6ｾﾙ　　　
　　　100　　　　200　　　300　　　400
が　元のBOOKにペーストすると　　BF6ｾﾙにまとめて『100･200･300･400』
となります。対処法ご存知の方よろしくお願いします。