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