컨텐츠에 따라 자동으로 색상을 설정하는 EXCEL VBA 스크립트

Sub ChangeColumnsRGB()
        Dim i As Integer
        Dim row As Integer
        Dim column As Integer

    For i = 3 To Sheet2.UsedRange.Rows.Count
   
        finalResult = Sheet2.Cells(i, 11).Value
        row = (i - 3) \ 4 + 2
        column = (i - 3) Mod 4 + 1 + 2  

        If finalResult = "ok" Then
            Sheet1.Cells(row, column).Interior.color = RGB(51, 153, 102)
        End If

        If finalResult = "Need artwork" Then
            Sheet1.Cells(row, column).Interior.color = RGB(153, 204, 0)
        End If

        If finalResult = "test ongoing" Then
            Sheet1.Cells(row, column).Interior.color = RGB(153, 51, 0)
        End If

        If finalResult = "Samples ongoing" Then
            Sheet1.Cells(row, column).Interior.color = RGB(0, 128, 0)
        End If

    Next i
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.column = 11 Then
    
        Dim operator As String
        Dim color As String
        Dim partName As String
        Dim finalResult As String
        
        operator = Cells(Target.row, 1).Value
        color = Cells(Target.row, 2).Value
        partName = Cells(Target.row, 3).Value
        finalResult = Target.Value
        
        Dim row As Integer
        Dim column As Integer
        row = (Target.row - 3) \ 4 + 2
        column = (Target.row - 3) Mod 4 + 1 + 2
        
        If finalResult = "ok" Then
            Sheet1.Cells(row, column).Interior.color = RGB(51, 153, 102)
        End If
        If finalResult = "Need artwork" Then
            Sheet1.Cells(row, column).Interior.color = RGB(153, 204, 0)
        End If
        If finalResult = "test ongoing" Then
            Sheet1.Cells(row, column).Interior.color = RGB(153, 51, 0)
        End If
        If finalResult = "Samples ongoing" Then
            Sheet1.Cells(row, column).Interior.color = RGB(0, 128, 0)
        End If
        
    End If
    
End Sub