셀 내용 입력 시, 해당 날짜 자동 입력+고정 방법 문의

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
 
    Dim cell As Range
    For Each cell In Target.Cells
        If cell.Column = 3 Then
            If cell.Value <> "" Then
                cell.Offset(0, 1).Value = Date
            Else
                cell.Offset(0, 1).Value = ""
            End If
        End If
    Next cell
End Sub