assuming you are running the code while file "A" is open and active
you can replace Workbooks("04.10.17 SHELBY.xlsx") with thisworkbook
ie
    Thisworkbook.Worksheets("Summary $500-$10K").Range("B8:F21").Copy