Help, need VBA to Find and Replace with the values of the Cell right next to it.

[lagiosman]

Hi, I need a macro to search Column N for the keyword "No Postal Shipping Available" and replace every cell with the values that is right next to it


eg

1pc Cheapest Postal Shipping Price	1pc Cheapest Express Courier Shipping Price
24.43	79.64
No Postal Shipping Available	88.92
24.47	32.88
No Postal Shipping Available	134.42
56.89	78.84
So If No Postal Shipping Available	<---copy this to the left: 128.29

I have already try with the macro recorder but I can't do anything, I need help..

Thanks

UPDATE!!!
The solution is below (THANK YOU "mehmetcik")

[mehmetcik]

This is quite easily done.

Let me create the code for you.

Sub Select_Select()

    With Range("N1:N" & Selection.SpecialCells(xlCellTypeLastCell).Row)
        Set rngFind = .Find("No Postal Shipping Available", .Cells(1, 1), LookIn:=xlValues, lookat:=xlPart)
        If Not rngFind Is Nothing Then
            strFirstAddress = rngFind.Address
            Set rngPicked = rngFind
            Do
                Set rngPicked = Union(rngPicked, rngFind)
                Set rngFind = .FindNext(rngFind)
            Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
        End If
    End With
    
    If Not rngPicked Is Nothing Then
        rngPicked.Select
        
        For Each c In Selection
        
        c.Value = c.Offset(0, 1).Value
        
        Next
        
    End If

End Sub

Change

 lookat:=xlPart

to

lookat:=xlWhole

if you want the cell to be exactly "No Postal Shipping Available".

[lagiosman]

ohhh thank you mehmetcik, it works, thank you very mutch.....

[mehmetcik]

I have edited the code to minimise it for you.

So only look at the latest code.

Enjoy.