vba - if 크고 작고고 좀 이상해

Sub a종합점수CLKa()
    Do While Cells(4, 7 + find_blank_cell) <> "" '//마지막 데이터까지 추출
        find_blank_cell = find_blank_cell + 1
    Loop
    last_num = 7 + find_blank_cell - 1 '셀(4,7)에서 시작해서 마지막 셀 찾기

    
    '_1.
    val_1 = Cells(6, last_num) * 100
    If 5 <= val_1 And val_1 < 10 Then
        re_1 = 2
    ElseIf 10 <= val_1 And val_1 < 15 Then
        re_1 = 4
    ElseIf 15 <= val_1 And val_1 < 20 Then
        re_1 = 6
    ElseIf 20 <= val_1 And val_1 < 25 Then
        re_1 = 8
    ElseIf 25 <= val_1 And val_1 < 30 Then
        re_1 = 10
    Else
        re_1 = 0
    End If
    Cells(6, 4) = re_1
    
    '_2.
    val_2 = Cells(8, last_num) * 100
    If 5 * 0.7 <= val_2 And val_2 < 10 * 0.7 Then
        re_2 = 2
    ElseIf 10 * 0.7 <= val_2 And val_2 < 15 * 0.7 Then
        re_2 = 4
    ElseIf 15 * 0.7 <= val_2 And val_2 < 20 * 0.7 Then
        re_2 = 6
    ElseIf 20 * 0.7 <= val_2 And val_2 < 25 * 0.7 Then
        re_2 = 8
    ElseIf 25 * 0.7 <= val_2 And val_2 < 30 * 0.7 Then
        re_2 = 10
    Else
        re_2 = 0
    End If
    Cells(8, 4) = re_2

    '_3.
    val_3 = Cells(10, last_num) * 100
    If 60 <= val_3 And val_3 < 70 Then
        re_3 = 1
    ElseIf 70 <= val_3 And val_3 < 80 Then
        re_3 = 2
    ElseIf 80 <= val_3 And val_3 < 90 Then
        re_3 = 3
    ElseIf 90 <= val_3 And val_3 < 100 Then
        re_3 = 4
    ElseIf 100 <= val_3 And val_3 < 110 Then
        re_3 = 5
    Else
        re_3 = 0
    End If
    Cells(10, 4) = re_3

    '_4.
    val_4 = Cells(11, last_num) * 100
    If -1 <= val_4 And val_4 <= 1 Then
        re_4 = 5
    ElseIf -2 <= val_4 And val_4 <= 2 Then
        re_4 = 4
    ElseIf -3 <= val_4 And val_4 <= 3 Then
        re_4 = 3
    ElseIf -4 <= val_4 And val_4 <= 4 Then
        re_4 = 2
    ElseIf -5 <= val_4 And val_4 <= 5 Then
        re_4 = 1
    Else
        re_4 = 0
    End If
    Cells(11, 4) = re_4

    '_5.
    val_5 = Cells(13, last_num) * 100
    If 40 <= val_5 And val_5 < 50 Then
        re_5 = 2
    ElseIf 50 <= val_5 And val_5 < 60 Then
        re_5 = 4
    ElseIf 60 <= val_5 And val_5 < 70 Then
        re_5 = 6
    ElseIf 70 <= val_5 And val_5 < 80 Then
        re_5 = 8
    ElseIf 80 <= val_5 Then
        re_5 = 10
    Else
        re_5 = 0
    End If
    Cells(13, 4) = re_5

    '_6.
    val_6 = Cells(15, last_num) * 100
    If val_6 < 50 Then
        re_6 = 5
    ElseIf 50 <= val_6 And val_6 < 70 Then
        re_6 = 4
    ElseIf 70 <= val_6 And val_6 < 90 Then
        re_6 = 3
    ElseIf 90 <= val_6 And val_6 < 120 Then
        re_6 = 2
    ElseIf 120 <= val_6 And val_6 < 150 Then
        re_6 = 1
    Else
        re_6 = 0
    End If
    Cells(15, 4) = re_6
       
    '_7.
    val_7 = Cells(16, last_num) * 100
    If val_7 < 5 Then
        re_7 = 5
    ElseIf 5 <= val_7 And val_7 < 10 Then
        re_7 = 4
    ElseIf 10 <= val_7 And val_7 < 20 Then
        re_7 = 3
    ElseIf 20 <= val_7 And val_7 < 30 Then
        re_7 = 2
    ElseIf 30 <= val_7 And val_7 < 40 Then
        re_7 = 1
    Else
        re_7 = 0
    End If
    Cells(16, 4) = re_7
    
    '_8.
    val_8 = Cells(18, last_num)
    If val_8 < 0.5 Then
        re_8 = 5
    ElseIf 0.5 <= val_8 And val_8 < 1.5 Then
        re_8 = 4
    ElseIf 1.5 <= val_8 And val_8 < 2.5 Then
        re_8 = 3
    ElseIf 2.5 <= val_8 And val_8 < 3.5 Then
        re_8 = 2
    ElseIf 3.5 <= val_8 And val_8 < 4.5 Then
        re_8 = 1
    Else
        re_8 = 0
    End If
    Cells(18, 4) = re_8

    '_9.
    val_9 = Cells(19, last_num)
    If val_9 <= -0.4 Then
        re_9 = 5
    ElseIf val_9 <= -0.3 Then
        re_9 = 4
    ElseIf val_9 <= -0.2 Then
        re_9 = 3
    ElseIf val_9 <= -0.1 Then
        re_9 = 2
    ElseIf val_9 <= 0 Then
        re_9 = 1
    Else
        re_9 = 0
    End If
    Cells(19, 4) = re_9
       
End Sub