实现将一个工资汇总表sheet拆分成多个个人工资单sheet

公司全部人员月工资以一sheet报表(如下图：表第一行为姓名,工号等等下面一行一行为各人员的本月工资)保存，欲实现以下功能:
问题点:如何把每个人的工资单记录单独取出生成以独立的SHEET，
即假设有10个员工就生成10个sheet

 

Private Sub CommandButton1_Click()
For i = 2 To [a1].End(xlDown).Row
    Sheets.Add.Name = Cells(i, 4)
    Sheets(Cells(i, 4).Value).Range("a1:j1") = Range("a1:j1").Value
    Sheets(Cells(i, 4).Value).Range("a2:j2") = Range("a" & i & ":j" & i).Value
Next
End Sub