When I Run This Macro Then Prompt A ("Workbook Name") Option Box

DEAR RESPECTED SIR need ur help

When I Run This Macro I Want To Prompt A MsgBox or Option Box Who Asked For Choose The File Name ( workbook name ) Option
and then copy data range from active worksheet to workbook name
in this code source workbook name is ("5.3.14") and destination workbook name is ("6.3.14")
i want always prompt a box who asked for destination workbook name and then copy data to new workbook name

Sub copypaste()
'
' copypaste Macro
'

'

    Range("C10:G11").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range("$A$9:$I$500").AutoFilter Field:=9, Criteria1:=">0", _
        Operator:=xlAnd
    Selection.Copy
    Windows("6.3.14.xlsm").Activate
    Range("C61").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("5.3.14.xlsm").Activate
    Range("G64").Select
End Sub

check such proposition:

Sub copypaste2()
Dim FileName As Variant
Dim SourceFile as Workbook, MainFile as workbook : Set MainFile=ThisWorkbook

FileName = Application.GetOpenFilename(filefilter:="Excel files (*.xls*),*.xls*", FilterIndex:=3, Title:="Choose a file")
If FileName = False Then  
   MsgBox "No file selected!", vbcritical
   Exit Sub
else
' here your code:
    Range("C10:G11").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Range("$A$9:$I$500").AutoFilter Field:=9, Criteria1:=">0", _
        Operator:=xlAnd
    Selection.Copy

'changed
    Workbooks.Open(Filename)
    Range("C61").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'changed: 
   msgbox "finished copying from " & Filename      
'and either:
   sourcefile.close false
'or (remove comment char = ' below and add above)
'   Mainfile.activate

    Range("G64").Select

'added 
end if
End Sub

hey thanx for reply Kaper

i m getting this error :
Capture.JPG

i m using ms office 2013 with .xlsm

and where i want to paste data the sheet name is "Entry"

Change here:

'and either:
   ActiveWorkbook.Close 
'or (remove comment char = ' below and add above)

or attach a sample (not real data of course) workbooks to test with.

PS. Note my message - especially about editing CapsLocked title look into your http://www.excelforum.com/private.php?folderid=0