What are your Macros?

Hey, I've been trying to put together some macros to make life a little easier. I was wondering what macros everyone else is using 

MACRO 16777217 "Bear Charge" Ability_Druid_ChallangingRoar
/script if not buffed("Dire Bear Form") then cast("Dire Bear Form") else cast("Feral Charge") end
END
MACRO 16777220 "Bite/Rip" Ability_Racial_Cannibalize
/script if (IsAltKeyDown())then CastSpellByName("Rip") else CastSpellByName("Ferocious Bite");end
END
MACRO 16777221 "Claw/Rake" Ability_Druid_CatFormAttack
/script if (IsAltKeyDown())then CastSpellByName("Rake") else CastSpellByName("Claw");end
END
MACRO 16777223 "Innervate" Spell_Nature_ChainLightning
/script if (IsAltKeyDown())then TargetUnit("player"); CastSpellByName("Innervate"); else CastSpellByName("Innervate");end
END
MACRO 16777218 "Mark of the Wild" Spell_Nature_Regeneration
/script Pre="Mark of the Wild(Rank " Sp={1,2,14,26,38,50,60} if (UnitLevel("target") ~= nil and UnitIsFriend("player","target")) then for i=7,1,-1 do if (UnitLevel("target") >= Sp[i]) then CastSpellByName(Pre..i..")") return end end end
END
MACRO 16777219 "Ravage/Shred" Ability_Hunter_Pet_Wolf
/script i=1;m=0;while(UnitBuff("player",i)~=nil) do if(strfind(UnitBuff("player",i),"Ability_Ambush")~=nil) then m=1; end;i=i+1;end; c=CastSpellByName; if(m==1) then c("Ravage");else c("Shred");end;
END
MACRO 19 "Bandage" Spell_Holy_SealOfSacrifice
/script UseAction(31, 0, 1);
/script if( SpellIsTargeting() ) then SpellTargetUnit("player"); end
END
MACRO 4 "Bear Form" Ability_Racial_BearForm
/script i=1;m=0;while(UnitBuff("player",i)~=nil) do if(strfind(UnitBuff("player",i),"Ability_Racial_BearForm")~=nil) then m=1; end;i=i+1;end; c=CastSpellByName; if(m==1) then c("Enrage");else c("Dire Bear Form");end;
END
MACRO 10 "Cat Form" Ability_Druid_CatForm
/script if not buffed("Cat Form") then cast("Cat Form") else if not buffed("Prowl") then cast("Prowl") end end
END
MACRO 6 "NS HT" Spell_Nature_RavenForm
/script CastSpellByName("Nature's Swiftness");if not UnitIsFriend("player","target")then TargetUnit("player");end;CastSpellByName("Healing Touch(Rank 10)");
END
MACRO 13 "Reset Instances" Spell_Nature_EyeOfTheStorm
/script ResetInstances()
END
MACRO 5 "Smart Touch" Spell_Nature_HealingTouch
/script r=10;H=UnitHealthMax("target")-UnitHealth("target");SR={140,350,640,1100,1500,1799,2004,2385,2600,3100};for i=r,1,-1 do if (H>(SR[i])) then CastSpellByName("Healing Touch(Rank "..i..")");break;end;end;
END
MACRO 16 "StopCasting" Ability_Creature_Cursed_04
/script SpellStopCasting()
/cast Healing Touch (Rank 4)
END
MACRO 14 "T-Bag" Ability_Hunter_Pet_Vulture
/run if(_g_g_f == nil)then _g_g_f = CreateFrame("frame"); end function _g_g_() SitOrStand();end; if(_g_g_b == nil) then _g_g_b = 1; _g_g_f:SetScript("OnUpdate", _g_g_); else _g_g_b = nil; _g_g_f:SetScript("OnUpdate", nil); end
END
MACRO 3 "Target" Ability_CheapShot
/tar Prince Nazjak
END