Macro to split data based on the value from specific column

[arnelgp]

there was no table, so i add one.
because on your original post there is a table.

there is a code in ThisWorkbook, Open event, copy that to your workbook.
there is a code in Module1 copy the whole module to your workbook.
create "job" sheet to your workbook.
and add a button and assigned a sub to it.

[Ratna Chhetr]

I ran the macro on the file you send over. I got debug after created 601 folder on below line. There is no file into 601 folder though.
Below part

'arnelgp
'from macro
Private Sub FilterTable(ByVal strValue As String)
    myWorkbook.Activate
    myListObject.Range.AutoFilter Field:=7, Criteria1:=strValue
End Sub

Debug on below line

myWorkbook.Activate

[arnelgp]

i also got error when opening the workbook.

try to update the code in ThisWorkbook:

Private Sub Workbook_Open()
Set Module1.myWorkbook = ThisWorkbook
Set Module1.myListObject = ThisWorkbook.Sheets("Data").ListObjects(1)
End Sub

then close and re-open the workbook.

[Ratna Chhetr]

Thank you it works, I really appreciate your help.