Segregate the data

How Segregate the data by considering filter column as criteria into multiple worksheets and Workbooks?

This template enables the user to segregate the data from single worksheet to multiple

Steps to follow:

Create a folder anywhere in your system\machine and place the downloaded coding workbook in that folder
Paste the your data in that worksheet from the A1 cells onwards
Click on the button to run the macro
Select the required headers in Listbox of userform
Choose the requirement whether you want paste the result set in WORKSHEET or WORKBOOK
Select the Header in COMBOBOX
execute the Macro
Result will be displayed by the application either by creating new worksheet(s) or by creating new workbooks., based on the option chose by the user in USERFORM

Download The Workbook

Public Iwkb As Workbook, Ish As Worksheet
Sub Data_From_Sheet_To_Worksbooks()
'Make application properties as FALSE to expedite the process
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Rem Define the Input WorkBook &
Worksheet Define_Input_worksheet
Rem display the Userform
UserForm1.Show
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub