跪求大神帮忙！！！

有没有自动化比较高的方法？包括用宏

Sub 切()
[A11:B18].Cut [D1]
[A19:B25].Cut [F1]
End Sub

Sub 复制()
a = 1
b = 2
For i = 1 To [A65536].End(xlUp).Row
If Cells(i, 1) <> Cells(i + 1, 1) Then
Range(Cells(a, 1), Cells(i, 2)).Copy Cells(1, b * 2)
b = b + 1
a = i + 1
End If
Next
End Sub

透视可行不？