Sort Contacts Marked As Company
Update:

I originally thought You don't need Applescript to do this.

And you could create a Smart Group that does it for you.









BUT  the 'Company: is set' is not for the checkbox. Its for the actual Company text field.

So you cannot use the above for this as it does not care if the checkbox for company is ticked or not. It only cares if there is text in the Company field.

So Applescript IS the way to go. And using  company is true which refers to the checkbox.

    property groupName : "Business"
tell application "Contacts"

    if not (exists (group groupName)) then
        make new group with properties {name:groupName}
    end if
    set the_people to people whose company is true
    repeat with i from 1 to number of items in the_people
        set this_person to item i of the_people
        add this_person to group groupName
        save
    end repeat
end tell