Hi Larry,

You can use something like this

   Sub copystuff()

      Dim i As Long
      i = 0

      While Range("A1").Offset(i, 0).Value <> ""

         INSERT YOUR CODE HERE

         i = i + 1

      Wend

   End Sub

Without seeing your data I can't be more specific.  By seeing it I could maybe offer some suggestions as to how to copy the data more efficiently.

Regards

Phil

Hi Phil

Here is some sample data and what I am trying to do has been done in column D2 and D4.

what has been done is I copied D1 to D2 and D3 to D4.

Now I want to copy that formula  (all odd number rows in column D to the even number rows in column D) down the entire column and end when I get to the end of the column.

I guess that the macro could end at the first blank cell in column A.

I do all right using the macro recorder but I can't seem to figure out how to start and  stop a loop function.

Any help you can give (an old man 84yrs) will be greatly appreciated.

Thanks for the reply.

Larry

Hi Larry,

This code will do what you want.  It uses FillDown to fill an empty cell with the value above it

   Sub FillDown()

      Dim i As Long
      i = 2

         While Range("A" & i).Value <> ""

            Range("D" & i).FillDown

            i = i + 2

         Wend

   End Sub

You can do this by hand too by selecting an empty cell e.g. D2 and using the Fill Down shortcut CTRL+D.  Here's a list of useful keyboard shortcuts for Excel.

Please see attached file for working code.

Great to hear that at 84 you are still learning 🙂

Regards

Phil