VBA Code Overwriting Data Written In Previous Loop

I have amended the code below and have got it working. The problem I have now is that every time it loops it overwrites the data it wrote the previous loop

Offending line being ActiveSheet. Range ("A1: D30") = ValuesArray

I have known that somehow it should remember the last row and copy below this one but I cannot get it to work

Code:
Sub Basic_Example_1()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() As String
Dim SourceRcount As Long, Fnum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range

[Code] ..........