Copy down formula dynamicly to used cell range only

This allows you to copy a formula or anything else really down dynamicly using the xl copy down function. I have included the formulas to give the code some context. You can change the Range used as required for your own use.

Range("A4").Formula = "=IF(RC[26]="""","""",RC[26])" Range("B4").Formula = "=IF(RC[26]="""","""",RC[26])" Range("A4:B" & ActiveSheet.UsedRange.Rows.Count).FillDown Code Snippits