v2

Sub Macro1()
'an di yi lie fen cheng bu tong sheet
Dim I As Integer 'row
Dim I1 As Integer 'new row
Dim J As Integer 'col
Dim K As Integer 'sheet
K = 4
I1 = 1
For I = 1 To 2184
        For J = 1 To 4
        Sheets(K).Cells(I1, J) = Sheet1.Cells(I, J)
        Next J
        I1 = I1 + 1
    If Sheet1.Cells(I, 1) <> Sheet1.Cells(I + 1, 1) Then
    Worksheets.Add after:=Worksheets(Sheets.Count)
        K = K + 1
        I1 = 1
    End If
   
Next I
End Sub