What needs to be added/changed to code to enable table expansion without error pop up?

This code works fine to adjust the F3 cell on Sheet2 to a new lower value. But why does the "Excel found a problem with one or more formula references?" error pop up when a new value is entered to the table in the Data1 column on Sheet1? I do not see any incorrect formula references. What am I missing here?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Me.ListObjects(1).DataBodyRange Is Nothing Then
        If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing Then
            On Error Resume Next
            With Worksheets("Sheet2")
                If .Range("F3").Value > Me.Range("F2") Then
                    .Range("F3").Value = Me.Range("F2")
                End If
                If .Range("C3").Value > Me.Range("F2") Then
                    .Range("C3").Value = Me.Range("F2")
                End If
            End With
        End If
    End If

End Sub