Hello Everybody,

Thank you everybody in this forum, for giving us chance to learn something.

and I have this below code everything working perfectly for me, but I need help with if user dont select any file. it shows error message. how can I avoid this error message.

Sub myTest()
    Dim Wbk As Workbook
    Dim wSht As Worksheet
    Dim copyRange As Range
    Set wSht = ActiveSheet
    Application.ScreenUpdating = False
    wSht.Range("C10", Range("C" & Rows.Count).End(xlDown)).Cut wSht.Range("D10")
    wSht.Range("B10", Range("B" & Rows.Count).End(xlUp)).Offset(, 1).Select
    Selection.Value = Date
    Set copyRange = wSht.Range("A10:D" & Range("A65536").End(xlUp).Row)
    copyRange.Copy
    Set Wbk = Workbooks.Open(Application.GetOpenFilename)
    If Wbk <> False Then Exit Sub
    With ActiveSheet
        .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlPasteAll
    End With
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    Set Wbk = Nothing
End Sub