实现将一个工资汇总表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