Option
Explicit
Sub
TryIt()
If
Application.FindFile =
False
Then
Exit
Sub
Dim
oWsh
As
Excel.Worksheet
Dim
Rng
As
Range
Set
Rng = Workbooks(1).ActiveSheet.Columns(2).Cells(Rows.Count).
End
(xlUp).Offset(1)
For
Each
oWsh
In
Workbooks(2).Sheets
oWsh.Range(
"A2"
).Copy Destination:=Rng.Offset(, -1)
If
Len(Trim(oWsh.Range(
"C5"
).Value)) > 0
Then
Range(oWsh.Range(
"C4"
), oWsh.Range(
"C4"
).
End
(xlDown)).Copy Destination:=Rng
Else
oWsh.Range(
"C4"
).Copy Destination:=Rng
End
If
Set
Rng = Workbooks(1).ActiveSheet.Columns(2).Cells(Rows.Count).
End
(xlUp).Offset(1)
Next
oWsh
Workbooks(2).Close
False
Set
oWsh =
Nothing
End
Sub