Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, rw
Application.EnableEvents = False
If [C4] <> "" Then
With Sheets("DATAS")
rw = Application.Match([C4], .Columns(1), 0)
Cells(5, "C") = .Cells(rw, "B")
Cells(6, "C") = .Cells(rw, "C")
Cells(7, "C") = .Cells(rw, "D")
End With
End If
For i = 5 To 7
If Cells(i, "C") = vbNullString Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
Next i
Application.EnableEvents = True
End Sub