Макрос на поиск и замены значения - VBA

Формулировка задачи:

Добрый день! Только начал заниматься макросами и вот столкнулся с проблемой Есть таблица со столбцами А B и т.д. нужно найти значение в ячейке Ai и заменить его на значение Bi. Помогите пожалуйста, с пояснением.

                    Листинг программы
                
 
                        
                          
                    
 Sub poiskMash()
'
' Poisk mash* Макрос
'
 
'
   Dim strStartAddr As String
   Dim rgResult As Range
 
   Set rgResult = Range("B1:B10000").Find("mash*", , xlValues)
   If Not rgResult Is Nothing Then
      ' Сохраним адрес найденной ячейки (чтобы контролировать зацикливание поиска)
      strStartAddr = rgResult.Address
   End If
   Do While Not rgResult Is Nothing
      [B][COLOR="Red"]' Исправить Bi на Ci????[/COLOR][/B]
   
      ' Новый поиск
      Set rgResult = Range("B1:B10000").FindNext(rgResult)
      If rgResult.Address = strStartAddr Then
         ' Поиск завершен
         Exit Do
      End If
   Loop
End Sub

Решение задачи: «Макрос на поиск и замены значения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Dim iSource As Range, iCell As Range
    Set iSource = Range("A:A")
    Set iCell = iSource.Find("mash", , xlValues, xlPart)
    Do Until iCell Is Nothing
       iCell = iCell(1, 2)
       Set iCell = iSource.FindNext
    Loop
End Sub