Copy and paste multiple excel files

[whitfty1]

I have about 5 files that are the same but will be updated by different users everyday. I would like to have a master file that will copy all the information beginning in row 6 down to the first empty row from each of the 5 files. Then I would like for it to paste in the master one after another. I know how to code this procedure with a set number of rows but not when each file length will vary. Can someone please help. A copy of a screen print from excel is attached.

[lintz]

If you need to find out when the first blank row is use something like this....

Sub Get_Last_Row()
Dim LastRow As Integer

oXLApp.Worksheets("Sheet1").Select
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
LastRow = ActiveCell.Row
End Sub

Then to copy the data you can....

Sub Copy_Date()
Dim MyRange As Range
oXLApp.Worksheets("Sheet1").Select
Set MyRange = Worksheets("Sheet1").Range(Cells(6, 1), Cells(LastRow - 1, 1))

MyRange.Select
MyRange.Copy
End Sub

Hope this helps

[whitfty1]

That worked. Thanks so much for your timely response.