how to copy a cell value and place in another non empty cell of same column

Do you want to place value of E5 in all the columns or E5 in E col., F5 in F col. G5 in G col. etc? Which is the last column in your workbook? So it would be better if you upload a sample workbook with enough sample data in it to let us know your exact requirement.

I have attached the sheet. In cell E4 I have value "100001" . I want to paste this value in all the cells of Column "E" that has value "X"

Likewise value of "F4" in all cells of column "F" that has "X".
Input.jpgOutput1.jpg


Sheet1 contains the actual and OUTPUT1 is wat I require

I don't see any attachment.

Try this code to see if this works as per your requirement.

Sub amethystfeb()
Dim rng As Range, cell As Range, rng1 As Range, cell1 As Range
Dim lr As Long, lc As Integer
lr = Cells(Rows.Count, "C").End(xlUp).Row
lc = Cells(4, Columns.Count).End(xlToLeft).Column
Set rng = Range(Cells(4, 5), Cells(4, lc))
For Each cell In rng
    Set rng1 = Range(Cells(5, cell.Column), Cells(lr, cell.Column))
    For Each cell1 In rng1
        cell1.Select
        If cell1 = "x" Then
            cell1 = cell
        End If
    Next cell1
Next cell
End Sub

Try this code........

Sub amethystfeb()
Dim rng As Range, cell As Range, rng1 As Range, cell1 As Range
Dim lr As Long, lc As Integer
lr = Cells(Rows.Count, "C").End(xlUp).Row
lc = Cells(4, Columns.Count).End(xlToLeft).Column
Set rng = Range(Cells(4, 5), Cells(4, lc))
Application.ScreenUpdating = False
For Each cell In rng
    Set rng1 = Range(Cells(5, cell.Column), Cells(lr, cell.Column))
    For Each cell1 In rng1
        If cell1 = "x" Then
            cell1 = cell
            Cells(cell1.Row, "L") = cell
        End If
    Next cell1
Next cell
Application.ScreenUpdating = True
End Sub

Glad to help you. Thanks for the feedback.
If that takes care of your question, please mark your thread as solved.
Moreover you may also click on * (star) to Add Reputation to those who have put their time and efforts to help you in this forum. This is another way to say thanks to them.