Open specific folder, select file to open and copy then paste

Perhaps this:

Option Explicit

Sub CopyRC()
Dim wb As Workbook
Dim strDrive As String
Dim strFolder As String
Dim strFilename As String
Dim rngSrc As Range

    strDrive = "C:"

    'strFolder = "F:\Test\Test"

    ChDrive strDrive

    'ChDir strFolder

    strFilename = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")

    If strFilename = "False" Then Exit Sub    ' user pressed Cancel

    Set wb = Workbooks.Open(strFilename)

    ' code to copy and paste to other workbook

    Set rngSrc = Application.InputBox("Please select cells to copy:", Type:=8)

    If Not rngSrc Is Nothing Then rngSrc.Copy

    wb.Close SaveChanges:=False

    Range("D2").Select
    
    ActiveSheet.Paste
    
End Sub