Find And Replace Last Cell With Formula

[doyleday]

I would like to create a find and replace macro that looks for the last cell with data in Column C and automatically divides that value by a number. I know how to create a find and replace macro that searches for values, but how to I search for the last cell with data in a specific column? Thanks.

[RichardSchollar]

Hi

Perhaps:

Dim myCell As Range 
Set myCell = columns(3).find("*",lookin:=xlvalues,searchdirection:=xlprevious) 
If Not myCell Is Nothing Then 
    myCell.Value = myCell.Value / 2 
End If 

Replace the '2' with whatever number you want to divide the value in the cell by.

Hope this helps!

Richard

[doyleday]

Thanks!