vba Selecting non-adjacent cells in active row for filldown

[Ike Hunter]

Is there a shorter way of writing VBA to select non-adjacent cells in an active row for the following...

Selecting first empty cell in column A and then selecting the adjacent cells that are in columns B, E, and G and then Filldown the existing formulas.

The following example works however it just seems there could be a better way to write the VBA especially if there are 15 to 20 non adjacent cells on the active row.

[A65000].Select
Selection.End(xlUp)(2, 2).Select
Selection.FillDown

[A65000].Select
Selection.End(xlUp)(2, 5).Select
Selection.FillDown

[A65000].Select
Selection.End(xlUp)(2, 7).Select
Selection.FillDown

Thanks in advance.

 

[Ike Hunter]

OK, Thank you