Add New Worksheet & Copy Range To It

The purpose of my following code is as below:

1. Add new worksheet (say ws2)
2. Activate the worksheet ws2
3. Copy a predefined range from already open workbook (say ws1)
4. Select the target cell in ws2 through user prompt by using mouse or keyboard
5. Paste the copied range from ws1 at this location of ws2

I am facing problem in selecting the cell in ws2 as ws1 always remain in foreground.

Sub CreateNewWorkBook(RValue As String)
Dim wbA As Workbook
Dim wbB As Workbook
Dim sTemp As String
Dim rRange As Range
Set wbA = ThisWorkbook
wsName = ActiveSheet.Name
Set wbB = Workbooks.Add
WorkBookName1 = wbA.Name
WorkBookName2 = wbB.Name......................