Moving data to multiple sheets

[Masterbeastly]

i have a large spread sheet that i would like to break into smaller sheets by the value contained in a specific column, I have been using this code but it does not copy the entire row just column J what do i need to change to make it copy the whole row into the respective sheet

Thank you for your help

[tony h]

activecell.EntireRow.Select

Will select the entire row.