If row is odd then

Hi all,
I have made the following code but it seems to be inserting the additional row whether it is odd or even.
I would like to insert the additional row if the current cell is ODD.

Confused, please help.

Sub NewPoint()
' Add New Range
' Add Test Point
    Range("Range_Results[[#Headers],[Range]]").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveCell.EntireRow.Insert
    Range("Range_Results[[#Headers],[Range]]").End(xlDown).Offset(1).Value = Application.Max(Range("Range_Results[Range]")) + 1
    If Selection Mod 2 = 0 Then
        Selection.Offset(2, 0).Select
        ActiveCell.EntireRow.Insert
        Else
    End If

    Range("Range_Results[[#Headers],[Range]]").Select
    Selection.End(xlDown).Select
End Sub