Macro Won't Fill Down Properly

[Jett Midknight]

Hello, I am having a problem with my macro filling down the data properly. I have a table wit headers set up. My macro selects two cells in the first row, and tries to copy it down into the other rows of the table. Instead what happens, the macro copies down the table headers into the two cells that are selected. Here is my code.

Range("I3").Select
ActiveCell.FormulaR1C1 = "Order Filled"
Range("J3").Select
ActiveCell.FormulaR1C1 = "Order FIlled"
Range("I3:J3").Select
Selection.FillDown

Any ideas how to fix this?

 

[User1981]

The .FillDown needs a Destination, I believe.

however, I prefer to do it this way, by counting the number of rows that you want to copy down to, storing the number in a variable, and use that variable later. gives a lot of flexibility for a "copy down" macro when you have a varying amount of rows.

i presume that column A:H are are a full table; so i'm just counting the row numbers of column H in the code. could also count column 1 (or A), or any column in your table that has non-blank values.

note, you don't need to select first, you can simply put the .Formula... right after the Range.

i presum that the "order filled" is just a placeholder, and you have an actual formula in there?

Sub test()
Dim nrows As Long
nrows = Cells(Rows.Count, "H").End(xlUp).Row


Range("I3").FormulaR1C1 = "Order Filled"
Range("J3").FormulaR1C1 = "Order Filled"
Range("I3:J3").Copy Range("I3:J" & nrows)


End Sub

 

[Jett Midknight]

This worked. Thanks for your help.

 

[User1981]

you're welcome. let me know if you have any further questions.