If Then Statement help

[LAW99]

I keep getting an error message for this function:

Function Gear(RPM As Double, Gear1 As Double)

   If RPM >= 7200 And Gear1 = 1 Then
        Gear = 2
    If RPM >= 7200 And Gear1 = 2 Then
        Gear = 3
    If RPM >= 7200 And Gear1 = 3 Then
        Gear = 4
    If RPM >= 7200 And Gear1 = 4 Then
        Gear = 5
    If RPM >= 7200 And Gear1 = 5 Then
        Gear = 6
    If RPM >= 7200 And Gear1 = 6 Then
        Gear = 6
    Else
        Gear = Gear1
        
    End If
        
End Function

I'm not sure what's wrong with the function. Error says Block End If.