Fill down to Last Row

[MurraySMTH]

Hi I am trying to fill auto-fill down the A column to the last row with the word "canceled"

I have tried a few codes. This one just puts canceled in the A2 cell.

This report will vary with rows every time i run it, so i am trying to make sure it fills out canceled for the last row each time.

I am grateful for any advice.

Thank you.


Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Canceled"
Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A")

Range("A2:A").Select

 

[Rick Rothstein]

Do you mean down to the very last row on the worksheet, some 1,000,000+ of them? Probably not a good idea to load up your worksheet like that, but if that is what you are asking for...

Range("A2", Cells(Rows.Count, "A")).Value = "Canceled"

 

[MurraySMTH]

Hi Rick!
No just the cells that are filled on the report. So if i pull my report for only 18 entries i want to make sure it populates the word canceled then fills down to the 18 cells on the report, i can't guarantee it will be 18 entries each time... so more of a lastrow type thing.

 

[MurraySMTH]

Rick,
I used this formula also, it is giving me an error.

Dim LastRow As Long

LastRow = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:A" & LastRow).Formula = "Canceled"
Range("A2").Select

ActiveCell.FormulaR1C1 = "Canceled"
Range("A2").Select

Selection.AutoFill Destination:=Range("A2:A")

 

[Fluff]

You need to delete this part of your code

Range("A2").Select
  
   ActiveCell.FormulaR1C1 = "Canceled"
   Range("A2").Select
   
   Selection.AutoFill Destination:=Range("A2:A")

 

[MurraySMTH]

That was it. I was over complicating it!

 

[Fluff]

Glad we could help & thanks for the feedback.