I am having trouble modifying the following information code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range
Dim TCol As Long
Dim TRow As Long
Dim RptProjRowNum As Long

TRow = Target.Row
TCol = Target.Column

If TRow > 2 Or TRow < 10000 Then

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
NumRows = Target.Value - 1
For R = 1 To NumRows
Target.Offset(1, 0).EntireRow.Insert
Next R
End If
End If

If Not Intersect(Target, Range("C2:C10000")) Is Nothing Then
For I = 1 To Target ' stops the code looping
tmpArr = tmpArr & "," & I
Next I
With Target
With .Offset(, 1).Resize(.Value)
.Value = .Value
End With

.Offset(0, 0).Copy .Offset(0, 0).Resize(.Value)
.Offset(0, -1).Copy .Offset(0, -1).Resize(.Value)
.Offset(0, -2).Copy .Offset(0, -2).Resize(.Value)

End With

End If

End Sub
The code adds the information on an extra line if you add a number in Column C. I need it to clear the info after it has run the VB code from Column C2 to C10000.


So instead of 

Range(Cells(Target.Row, 1), Cells(Target.Row, 13)).ClearContents
It would be ???

Range(TRow 2), TRow 10000)).ClearContents

Thank you for your time