some suggestion:
..
..
'Open the workbook to copy data from
Set OpenBook = Workbooks.Open(FileToOpen, 0, True)

With OpenBook.Worksheets("Fastener")
    'Copy Data to This Workbook
    DCell = DCol & "6" 'Copy Joint Description
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("B12")
    
    DCell = DCol & "7" 'Copy Fastener Part Number
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("H11")
    
    DCell = DCol & "8" 'Copy Fastener Nominal Thread Diameter (in)
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("D16")
    
    DCell = DCol & "9" 'Copy Fastener Threads per Inch
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("D17")
    
    
    
    DCell = DCol & "23" 'Copy Fastener, Assembly, Worst Msy
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("D77")
    
    DCell = DCol & "24" 'Copy Fastener, Assembly, Worst Msu
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("E77")
    
    DCell = DCol & "25" 'Copy Fastener, Assembly, Max Stress (ksi)
    ThisWorkbook.Worksheets("Summary Table").Range(DCell) = .Range("F77")
    
End With
'Close the workbook
OpenWorkbook.Close SaveChanges:=False

End Sub