Merge a range from all workbooks in a folder to one Master Sheet

[ACALEX]

i do some changes on code and working for me, but i can't not find way how to do one more change.. i need every time if run the code, to continue merge records to first empty row on destination sheet..
I am trying to do that, but all without success

[ACALEX]

'Set the destrange
Set destrange = BaseWks.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

in first 26 rows i take name of files after that is ok

[ACALEX]

delete: 'Copy the file name in column A
With sourceRange
BaseWks.Cells(rnum, "h"). _
Resize(.Rows.Count).Value = MyFiles(Fnum)
End With