Copy Cell to Last Row

[cheesiepoof05]

I am trying to get VBA code to copy the value in A2 and paste it in A3 through the last row. In the example below, "FUN!" would be pasted into A3-A6. Please note there could be blanks in other columns and the last row will vary. Thank you!

 

[MARK858]

Maybe...

Range("A3:A" & Columns("B:C").Find("*", , xlValues, , xlByRows, xlPrevious).Row).Value = Range("A2").Value

 

[Marc L]

​

Or [A2].Resize([A1].CurrentRegion.Rows.Count - 1).FillDown …​

 

[MARK858]

Or [A2].Resize([A1].CurrentRegion.Rows.Count - 1).FillDown …

Please note there could be blanks in other columns

@Marc L If one of those blanks happens to be C5 as well as B5?

 

[Marc L]

​

In this case it shoud be your way or this one (so many variations as usual) : [A2].Copy Range("A3:A" & ActiveSheet.UsedRange.Rows.Count)​

 

[cheesiepoof05]

Thank you both. I appreciate the help. Here here to Mar(c/k)s.