good work . i was a little unsure from your sample.xls which cell{s} to save
this bit well change to find the cells to copy
 'This is the section to customize, replace with your own action code as needed
        'Find last row and copy data
            LR = Range("A" & Rows.Count).End(xlUp).Row
            If NR = 1 Then      'copy the titles and data
                Range("A1:A" & LR).EntireRow.Copy _
                    wbknew.Sheets("Master").Range("A" & NR)
            Else                'copy the data only
                Range("A2:A" & LR).EntireRow.Copy _
                    wbknew.Sheets("Master").Range("A" & NR)
            End If
        'close file
what we need to do is look in certain cell if they have a values then copy the ranges

i think its a5 with row 7 to 10 and a15 with rows 17 to 20? or can you highlight the stuff you need.