Excel vba script for ZJY's work