Sub ColorRowsBasedOnLeadTime()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("발주내역") ' 데이터가 있는 시트 이름
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' A열에서 마지막 데이터가 있는 행 찾기
    
    Dim i As Long
    For i = 2 To lastRow ' 2행부터 마지막 행까지 반복
        Dim leadTime As Integer
        leadTime = ws.Cells(i, "E").Value ' 출고리드타임은 E열에 있음
        
        ' 리드타임 값에 따라 배경색 설정, F열 이후는 칠하지 않음
        If leadTime <= 15 Then
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 5)).Interior.Color = RGB(0, 255, 0) ' 리드타임 15 이하이면 녹색
        ElseIf leadTime >= 16 And leadTime <= 20 Then
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 5)).Interior.Color = RGB(255, 165, 0) ' 리드타임 16~20이면 주황색
        ElseIf leadTime > 20 Then
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 5)).Interior.Color = RGB(255, 0, 0) ' 리드타임 20 초과이면 빨간색
        Else
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 5)).Interior.Color = xlNone ' 조건에 맞지 않을 경우 색상 제거
        End If
    Next i
End Sub