formula copy question

[Gary Keramidas]

what's the best way to copy a non-contiguous row of formulas one row below it.

for example, A10, c10, e10:h10

so they end up in row 11

i tried union but didn't get it to work.

 

[moon]

Insert a row above.

 

[Tom Ogilvy]

Sub AAA()
Dim ar As Range
For Each ar In Range("A11").Range("A1,C1,E1:H1").Areas
ar.FillDown
Next
End Sub

 

[Gary Keramidas]

thanks for that, tom

--


Gary

Sub AAA()
Dim ar As Range
For Each ar In Range("A11").Range("A1,C1,E1:H1").Areas
ar.FillDown
Next
End Sub