vba 按照空行分割excel

Sub Macro1()
Dim rng As Range
Range("A1:O" & Range("B65536").End(xlUp).Row).AutoFilter Field:=2, Criteria1:="<>"
For Each rng In Range("A2:O" & Range("B65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Areas
Worksheets.Add after:=Worksheets(Worksheets.Count)
rng.Copy ActiveSheet.Range("A1")
Next rng
Range("A1:O" & Range("B65536").End(xlUp).Row).AutoFilter
End Sub