Instrução "Private" com propriedade "Cells"

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
If Target.Column = 2 And Target = "DEPOSITADO" Then
If Worksheets(2).Cells(Target.Row, Target.Column - 1) = "" Then
Worksheets(2).Cells(Target.Row, Target.Column - 1) = Cells(Target.Row, Target.Column - 1)
Cells(Target.Row, Target.Column - 1).ClearContents
Target = "Ok"
End If: End If
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !