Create Sheet For Details Of Each In Table

I have a work sheet(sheet1) that contains 700 people's information. Each row contains information for one person. Let's call the first person A. I have to copy certain columns of person A's response to another work sheet(sheet3) in the same file. Then, copy person A's e-mail address and save the sheet as person A's e-mail. Repeat the same steps for the next respondent.

I have created the macro for person A already (including the saving part). Now the question is how to write the loop in the macro.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/5/2007 by Jean Kuo
'
'
Range("Q4").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[-2]C[-4]"
Range("Q13").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-9]C[-14]"
Range("Q14").Select
Sheets("Sheet2").Select
Range("D4").Select
Sheets("Sheet3").Select
Range("Q14").Select
Sheets("Sheet2").Select
Range("D4").Select
ActiveCell.FormulaR1C1 = ""
Range("C4").Select
Selection.Copy
Range("D4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Sheet1!R[-2]C17"
Range("C4").Select
Sheets("Sheet1").Select

Range("T1").Select

Sheets("Sheet3").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-10]C[-13]"
Range("Q15").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-11]C[-12]"
Range("Q16").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-12]C[-11]"
Range("Q17").Select
Sheets("Sheet2").Select
Range("F4").Select
Sheets("Sheet2").Select
Range("G5").Select
Sheets("Sheet3").Select
Range("Q17").Select
ActiveCell.FormulaR1C1 = "=Sheet2!R[-13]C[-10]"
Range("Q22").Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[-20]C[42]"
Range("Q22").Select
Selection.Copy ...