Copy/Paste Values Using VBA Code

Hello,

I am trying to write a Macro where it will use date and time (protected fields), and copy and paste values for only fields that have a formula. I am almost there, but I keep getting a debug run time error 1004.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("a2:A1048575")) Is Nothing Then

If Target.Offset(0, 1).Locked = False Then
ActiveSheet.Unprotect "isitontime"
Target.Offset(0, 1).Value = Now
Target.Offset(0, 1).Locked = True
Target.Offset(0, 0).Locked = True
Target.Offset(0, 2).Locked = True
ActiveSheet.Protect "isitontime"
End If
End If
Dim r1 As Range, r2 As Range
Set r1 = Range("C1:C100")
Set r2 = Range("D1:D100")
r1.Copy
r2.PasteSpecial Paste:=xlPasteValues
End Sub

Thank you,

Daniel