Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = 0
With Worksheets("Plan1")
[C2].Formula = "=IFERROR(VLOOKUP(B2,$G$2:$H$7,2,0),"""")"
.Range("C2").AutoFill Destination:=Range("C2:C" & lastrow)
.Range("C2:C9000").Value = .Range("C2:C9000").Value
End With
Application.ScreenUpdating = 1
End If
End Sub
Fiz essa mudança e deu certo! Obrigado Alexandre