First column instance and fill right

[silverspr]

Hello everyone
I've found lots of vba examples of how to fill down a range of data but nothing to fill right on the first column instance of a value:

I have a range of data C2:H19
Each row has one value which could start anywhere in the row. I need to be able to either select the range or find the first instance of the value in the row and fill to the right with that value to the last column (H) i.e. row C2:H2, first value in this row might be D2, fill right to H2 with the value from D2, next row the value might be in E3, fill right to H3 with the value from E3 and so on.

Any help on this will be muchly appreciated
thanks

 

[AlphaFrog]

Hi and welcome.

Sub Fill_to_Right()

    Dim cell As Range, Found As Range
    
    For Each cell In Range("C2:C19")
        Set Found = cell.Resize(, 6).Find("*", Cells(cell.Row, "H"), , , xlByColumns, xlNext)
        If Not Found Is Nothing Then
            Range(Found, Cells(cell.Row, "H")).Value = Found.Value
        End If
    Next cell
End Sub

 

[silverspr]

Alpha,
this is fabulous, and in so few lines of code. I will have to study this, not the approach I had taken. I was making it much more complex than it needed to be. Thank you so much, you've saved me tons of work, I have a 50 page worksheet to convert using this macro.

not sure how I award you 5 stars...but its certainly worth 5 stars to me!