Private Sub Worksheet_Activate()
' Application.ScreenUpdating = False
Dim cl As Integer
Ncol = 3
For Each c In [a2:a12]
P = Application.Match(c, Application.Index([datac], , 1), 0)
If Not IsError(P) Then
Sheets("PV").Range("datac").Cells(P, Ncol).Copy c.Offset(, 2)
End If
Next c
' Application.ScreenUpdating = True
End Sub