Conditional Formatting DataBar by macro

How can I set a range conditional formating with data bar with a macro?