Need help with VBA Macro for copy / pasting a cell value into other select cells

[shukero]

Good afternoon everyone,

I need help with developing a macro which will paste a value from within a cell into all other cells which have values within the column to the immediate left. (Please see screenshot below)

An example would be:
I have a "trim" formula in Cell D2, and I need to copy that formula (using a VBA macro) into any cell in column D which has a value in the cell to the immediate left. (please see screenshot below)

Can someone please help me with this?

Thanks!
~Mike

 

[JLGWhiz]

Sub copyFormula()
Dim lr As Long, c As Range
With ActiveSheet
    lr = .Cells(Rows.Count, 3).End(xlUp).Row
    For Each c In .Range("D3:D" & lr)
        If c.Offset(, -1).Value > "" Then
            .Range("D2").Copy c
        End If
    Next
End With
End Sub

 

[mumps]

Try:

Sub Copyformula()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("C3:C" & LastRow)
        If rng <> "" Then
            rng.Offset(0, 1)= Range("D2").FormulaR1C1
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[shukero]

Thank you both very much, I ended up using JLGWhiz's code since it seemed to be a bit less complex and used a bit less code. (That and I can somewhat understand the logic in it for tweaking if needed)

I will like both of your replies. THANK YOU!

 

[JLGWhiz]

Thank you both very much, I ended up using JLGWhiz's code since it seemed to be a bit less complex and used a bit less code. (That and I can somewhat understand the logic in it for tweaking if needed)

I will like both of your replies. THANK YOU!

Thanks for acknowledging all the effort.
Regards, JLG