Обновление данных на листе с другого листа

Не актуально, помогли Код программы:
Sub Update()
Dim iLastRow As Long
Dim i As Long
Dim Ticker As String
Dim TickerFoundRng As Range
Sheets("Shares").Activate
iLastRow = Cells(Rows.Count, 15).End(xlUp).Row
For i = 6 To iLastRow
If Cells(i, 15).Font.ColorIndex = 3 Then
Ticker = Cells(i, 3)
If Ticker = "" Then
MsgBox "В столбце D не указан Тикер!", vbExclamation, "Ошибка"
Exit Sub
End If
Set TickerFoundRng = Sheets("securities-PFTS").Columns(2).Find(what:=Ticker, LookIn:=xlValues, LookAt:=xlWhole)
If TickerFoundRng Is Nothing Then
MsgBox "Тикер " & Ticker & " на листе securities-PFTS не найден!", vbExclamation, "Ошибка"
Exit Sub
End If
If TickerFoundRng.Offset(, 11) = "+" Then
Cells(i, 15) = Sheets("securities-PFTS").Cells(TickerFoundRng.Row, 15)
Cells(i, 14) = Sheets("NAV-ALL").Range("G3")
End If
End If
Next
MsgBox "Котировки обновлены!", 64, "Котировки"
End Sub

Персональное спасибо и признательность программисту под ником Pavel.