I have been trying this

Sub Macro1()
Dim sFileName As String
Dim bWkb As Workbook
Dim Wkb As Workbook
Dim Wks As Worksheet
Dim sPath As String
sPath = "C:\Documents and Settings\MICKY\Desktop\raja\"
sFileName = Dir(sPath & "*.xls")
Set bWkb = ThisWorkbook
Do While sFileName <> ""
Set Wkb = Workbooks.Open(sPath & sFileName)
For RowOffset = 0 To 2
For ColOffset = 0 To 3
Wkb.Worksheets("Sheet1").Range("A1") _
.Offset(RowOffset, ColOffset + 4) = _
bWkb.Worksheets("Sheet1").Range("A1") _
.Offset(RowOffset, ColOffset)
Next
Next
sFileName = Dir
Wkb.Close SaveChanges:=True
Loop
End Sub