try this. It may not work, I cannot test it...

Sub Consolidate()
'Author:     JBeaucaire'
'Date:       9/15/2009     (2007 compatible)'
'Summary:    Open all Excel files in a specific folder and merge data'
'            into one master sheet (stacked)'
'            Moves imported files into another folder'
Dim fName As String, fPath As String, fPathDone As String, OldDir As String
Dim LR As Long, NR As Long
Dim wbkOld As Workbook, wbkNew As Workbook, ws As Worksheet

'Setup
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
    Set wbkNew = ThisWorkbook
    Set ws = wbkNew.Sheets("Start") 'sheet report is built into...edit to match
    
    If MsgBox("Import new data to this report?", vbYesNo) = vbNo Then Exit Sub
    
    If MsgBox("Clear the old data first?", vbYesNo) = vbYes Then
        ws.Range("A2:A" & Rows.count).EntireRow.ClearContents
        NR = 2
    Else
        NR = ws.Range("A" & Rows.count).End(xlUp).Row + 1
    End If

'Path and filename
    OldDir = CurDir             'memorizes the user's current working path
    fPath = "G:\KEEP\Bowden\Imported\"
    fPathDone = "G:\KEEP\Bowden\Imported\Master\"   'optional
    ChDir fPath
    fName = Dir("Book*.xl*")      'filtering key, change to suit

'Import a sheet from found file
    Do While Len(fName) > 0
        'Open file
            Set wbkOld = Workbooks.Open(fName)
        'Find last row and copy data
            Sheets(1).Activate
            'LR = Range("A" & Rows.count).End(xlUp).Row   'find the bottom row of data...change to a different column if "A" isn't reliable for spotting this value
            'Range("A2:A" & LR).EntireRow.Copy ws.Range("A" & NR)
            Range("A2:B17").Copy ws.Range("A" & NR)
        'close file
            wbkOld.Close False
        'Next row
            'NR = Range("A" & Rows.count).End(xlUp).Row + 1
            NR = Range("A" & Cells.count).End(xlUp).Cells + 1
        'move file to "imported" folder
            Name fPath & fName As fPathDone & fName         'optional
        'ready next filename
            fName = Dir
    Loop

'Cleanup
    ActiveSheet.Columns.AutoFit
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True

'restores user's original working path
    ChDir OldDir
End Sub