Only paste the values from the first workbook and then it appears to not locate the next open row??
Dim myfile As String
myfile = Dir("C:\AA_HISTORY")
Do While Len(myfile) > 0
If myfile = "activity Log.xlsm" Then