VBA - Trying to use For / Next Loop macro to go to next dynamic cell range in column 'C'

Currently I have the macro selecting the first active cell range within column C, looks at the value in the first cell, then copies the value to all the remaining cells in that range.
The problem I'm having is how to properly go to the next cell range to perform the same task for the next active cell range...and so on until end of active cells in column 'C'.
I've tried using a for loop, but am having no luck(removed from code to remove confusion).
Any help would be appreciated.

Thanks in advance.

Sub Macro4()
    
    Range("C1").Select 
    Selection.End(xlDown).Select 
    
    ActiveCell.CurrentRegion.Rows(2).Select
    
    Range(Selection, Selection.End(xlDown)).Select
    
    Selection.FormulaR1C1 = "=R[-1]C"
            
End Sub

Thanks, but did you run my macro with the Book1.xlsm file?
It will do to the 1st example cell range what I want to perform for the each cell range thereafter for itself. So if the 1st cell in the 1st cell range is 1 then it changes all the other cells in that one range to 1. Then I want it to look at the next cell range, say it's 1st cell starts with 15, it changes the remaining cells of that region to 15. Then it continues doing this for every active cell region until there are no more active cell regions.
I don't think I follow how yours would apply, please explain if I just don't understand.

Thanks

The macro is looking starting at a set column, in this case column 'C'. It then looks for the next active cell region(a cell range of cells that have stuff in them, numbers, letters, whatever), but without having a designated range (ie: Range(C3:C13)). It then looks at the 1st cell in the region(ie Range(C3:13)) so C3 say is equal to 13, but the remaining cells below C3 are different numbers. The macro changes them all to equal the top cell in their region. So in this case C4:C13 would be changed to equal the value 13 regardless of what number they were originally.

This whole task within this macro, I want to be able to continue to the next active cell regions within column 'C'. So let's say the next active cell region is C23:C45, it looks at C23 value and changes C24:C45 to equal that value....this continues until there is no more active cell regions within the 'C' column. I can get it to work for the first portion, but I think I need some sort of 'For / Next' loop to go to the next instance. That's what I'm having trouble with.

I hope this explaination helps.

Help if you can.
Thanks

Can anyone help? I still haven't found any similar code that I can use to continue through the same column and proceed to the next cell region in the macro.
Any help would be much appreciated.

Thanks

Thanks Lieth, I will try this over the weekend. I appreciate your post and information. I will post whether or not I got it to function properly.

Leith,

That last bit of code you put up, will work, however it does not to go the next active cell range. It just does the first cell range....

Lieth,

I tried to incorporate your code, and that's just it, I need it to stay within the confines of column C, if this is possible.??
I played with the code and did some more research and here's where I am currently with the code. It works perfectly, EXCEPT it will not stop after it's run the 'Do' function within column C.
I put the Message box in there so you can see how it between going to the next active cell region.
Any thoughts how I can stop the macro from running outside the "C" column?

Sub CopyValuetoRange()
'
' CopyValuetoRange Macro

Dim search_range As Range, Block As Range, last_cell As Range
  Dim first_address$
  Set search_range = ActiveSheet.UsedRange
  Set Block = search_range.Find(what:="*", _
    after:=search_range.SpecialCells(xlCellTypeLastCell), _
    LookIn:=xlValues, searchorder:=xlColumns, searchdirection:=xlDown)
  If Block Is Nothing Then Exit Sub
  
  Set Block = Block.CurrentRegion
  first_address$ = Block.Address
  Do
    Block.Select
    Selection.End(xlDown).Select
    ActiveCell.CurrentRegion.Rows(2).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormulaR1C1 = "=R[-1]C"
        
    MsgBox "Next Block Range"
    Set last_cell = Block.Cells(Block.Rows.Count)
    Set Block = search_range.FindNext(after:=last_cell).CurrentRegion
  Loop Until Block.Address = first_address$


End Sub

Is there anyone who might be able to help? I think one of the issues is that I'm using region instead of range. So I need a code that will go to each unknown sized range within Column "C" then 'do something'.
Please help! Thanks in advance.