Copy and paste data range to selected cell

[jukhamil]

Could someone please write a simple script to copy and paste the data range (the rows and columns with data) from a named Excel project (workbook) to the highlighted cell in a different one?

Something like this:

wbA = Workbooks("A")

wbB = Workbooks("B")

wbA.DataRange.Copy()

wbB.Selected.Paste()

Thank you very much.

[#2]

@jukhamil 

For example:

Sub CopyData()
    Dim wbA As Workbook
    Dim wbB As Workbook
    Set wbA = Workbooks("A")
    wbA.Activate
    ActiveSheet.UsedRange.Copy
    Set wbB = Workbooks("B")
    wbB.Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub