Fill down used ranges in several sheets

[Max]

I have slightly different formulas in different sheets (named as say: x, y,
z) that I am currently filling down by double clicking on the top cell in
each sheet in turn. The top cell is the same in all sheets, eg: A5, although
the used ranges to be filled may be different. Any sub to do this ? Thanks

 

[Rick Rothstein]

Give this macro a try (where I assume the data is in Column A starting in
Row 5 on each sheet and the formula you want to copy down is in B5 on each
sheet)...

Sub CopyFormulasDown()
Dim V As Variant
For Each V In Array("x", "y", "z")
With Worksheets(V)
.Range("B5").Copy .Range("B5:B" & .Cells( _
.Rows.Count, "A").End(xlUp).Row)
End With
Next
End Sub

 

[Max]

Many thanks, Rick.
That does it well.

Max