Macro não reconhece valor

Boa tarde
Como fazer a macro abaixo, reconhecer que o valor em T4, é produto de formulas. Agradeço se puderem ajudar.

Option Explicit
Dim ValorT4 As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$4" Then
If Target.Value = 0 Then
If ValorT4 > 0 Then
Range("B1").Offset(ValorT4 - 1, 0).Value = 1 + Range("B1").Offset(ValorT4 - 1, 0).Value
End If
Else
ValorT4 = Target.Value
End If
End If
End Sub

Boa noite!!
Eu não entendi ..
Respondido em
http://info.abril.com.br/forum/viewtopic.php?p=68754
Att