To remove the split from the window, set the Split property to False:
Sub remove() ActiveWindow.Split = False End Sub