I have an excel template file and I have a master list of data. When I run the code in the template, I want the following to happen:
Open the master list and select the "Data" worksheet.
For every row where "Dan" is in the manager column, I want to select the corresponding cells in columns F, H and I.
I want this data to be copied and pasted in the template file under the worksheet tab named "Dan"
The problem I am having is that once the program finds it's first value, it stops. I'm new at this, so I'm hoping someone can find an easy solution. My code is as follows:

Sub Direct()

Workbooks.Open Filename:="C:\Users\Documents\Resources\Master.xlsx"
Workbooks("Master.xlsx").Sheets("Data").Activate

Dim Lastrow As Integer, i As Integer
Lastrow = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To Lastrow

If Cells(i, 2).Value = "Dan" Then

Union(Cells(i, 6), Cells(i, 8), Cells(i, 9)).Select
Selection.Copy
Workbooks("Template.xlsx").Sheets("Dan").Activate
ActiveSheet.Cells(1, 1).Select
ActiveSheet.Paste
End If

Next i

Thanks in advance!