Collating the CMS Avaya Raw Dump into consolidated raw data

Sub test()
Dim myDir As String, fn As String
myDir = "W:\XXXXXXXXXX\2010\Raw dump - avaya script\"
fn = Dir(myDir & "*.xls")
Do While fn <> ""
    If fn <> ThisWorkbook.Name Then
        With Workbooks.Open(myDir & fn)
            With .Sheets(1).Range("A1:IV200")
                ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(4) _
                .Resize(.Rows.Count, .Columns.Count).Value = .Value
            End With
            .Close False
        End With
    End If
    fn = Dir
Loop
Rows("1:3").Select
Selection.Delete shift:=xlUp
Range("a1").Select
End Sub