OverPower Macro
/script t,n,isA,c = GetShapeshiftFormInfo(1);if isA then CastSpellByName("Overpower(Rank 4)");else CastSpellByName("Battle Stance()");end

Disarm Macro
/script
texture,name,isActive,isCastable = GetShapeshiftFormInfo(2);
if isActive then CastSpellByName("Disarm()");
else CastSpellByName("Defensive Stance()");
end;

Revenge Macro
/script
texture,name,isActive,isCastable = GetShapeshiftFormInfo(2);
if isActive then CastSpellByName("Revenge(Rank 4)");
else CastSpellByName("Defensive Stance()");
end;

Charge/ Intercept Macro 
/script C=CastSpellByName;if UnitAffectingCombat("player") then i=3;else i=1;end;local w,a,r=GetShapeshiftFormInfo(i);if i==1 then if r then C("Charge()");else C("Battle Stance()");end;else if r then C("Intercept()");else C("Berserker Stance()");end;end

Taunt Macro
/script
texture,name,isActive,isCastable = GetShapeshiftFormInfo(2);
if isActive then CastSpellByName("Taunt()");
else CastSpellByName("Defensive Stance()");
end;