Macro to split data based on the value from specific column

[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.