Opening file, copy and paste range

Didn't see a problem with your code except the pastespecial statement, so I modified it a bit. See if it works...

Sub cy_pst()
    Dim wbTarget As Workbook, wbSource As Workbook
    Dim strFileToOpen As String, vData As Variant
    
    Set wbTarget = ThisWorkbook
    strFileToOpen = Application.GetOpenFilename("Excel Files *.xls* (*.xls*),", , "Please choose the clockwise data file")
    If strFileToOpen = "False" Then
        MsgBox "No file selected.", vbExclamation, "Sorry!"
        Exit Sub
    Else
        Set wbSource = Workbooks.Open(strFileToOpen, , 1)
    End If
    
    vData = wbSource.Sheets("H28_F116 Data").Range("A10:BG5233")
    wbTarget.Sheets("H28_F116 CW Data").Range("A10:BG5233") = vData
    wbSource.Close
    
    strFileToOpen = Application.GetOpenFilename("Excel Files *.xls* (*.xls*),", , "Please choose the counterclockwise data file")
    If strFileToOpen = "False" Then
        MsgBox "No file selected.", vbExclamation, "Sorry!"
        Exit Sub
    Else
        Set wbSource = Workbooks.Open(strFileToOpen, , 1)
    End If
    
    vData = wbSource.Sheets("H28_F116 Data").Range("A10:BG5233")
    wbTarget.Sheets("H28_F116 CCW Data").Range("A10:BG5233") = vData
    wbSource.Close
    
    wbTarget.Save
    MsgBox "Data Transferred"
End Sub