エクセル（VBA）について質問です。

ウォッチリストの8、９はどうするのとか、アクセス数は境界はどっちにするの

とか、いくつか仕様があいまいですが、下記のようでどうでしょうか。

先頭行がデータの場合は、★の部分を１に変更ください。

不明な点は、コメントで対応します。

Option Explicit
'-----------------------------------------------
Sub program1()
'-----------------------------------------------
    Dim ll As Long
    ll = 2  '★開始行：タイトル列がなければ1に変更
    
    Do While Cells(ll, "Q").Value <> "" And Cells(ll, "R").Value <> ""
        Cells(ll, "S").Value = itemRank(Cells(ll, "Q").Value, Cells(ll, "R").Value)
        ll = ll + 1
    Loop
End Sub

'-----------------------------------------------
Sub program2()
'-----------------------------------------------
    Dim ll As Long
    ll = 2  '★開始行：タイトル列がなければ1に変更
    
    Do While Cells(ll, "S").Value <> ""
        Cells(ll, "T").Value = itemSelect(Cells(ll, "S").Value)
        ll = ll + 1
    Loop
End Sub


'-----------------------------------------------
Function itemRank(ac As Long, wl As Long) As String
'-----------------------------------------------
    Dim rkArray As Variant
    rkArray = Split("EDBSS/EECSS/DEDAA/SEEBA/SEEBA", "/")
    
    Dim aRK As Integer
    
    aRK = CInt(ac / 25)
    If aRK < 0 Then aRK = 0
    If aRK >= 4 Then aRK = 4
    
    Dim wRK As Integer
    Select Case True
    Case wl <= 1
        wRK = 0
    Case wl <= 3
        wRK = 1
    Case wl <= 5
        wRK = 2
    Case wl <= 7
        wRK = 3
    Case Else
        wRK = 4
    End Select

    itemRank = Mid(rkArray(aRK), wRK + 1, 1)
End Function

'-----------------------------------------------
Function itemSelect(iRank As String) As String
'-----------------------------------------------
    Dim sArray As Variant
    Select Case iRank
    Case "S"
        sArray = Split("①そのまま続行/②値段を1000円・１００円・１円にする/③高値回しの見せつけ/④類似商品を勧める/⑤おまけを付ける", "/")
    Case "A"
        sArray = Split("①そのまま続行/②値段を1000円・１００円・１円にする/③高値回しの見せつけ/④類似商品を勧める/⑤おまけを付ける", "/")
    Case "B"
        sArray = Split("①そのまま続行/②コバンザメ作戦/③高値回しの見せつけ/④類似商品を勧める/⑤おまけを付ける", "/")
    Case "C"
        sArray = Split("①コバンザメ作戦/②おまけを付ける/③セット作戦", "/")
    Case "D"
        sArray = Split("①おまけを付ける/②セール感覚の均一仕掛け/③セット作戦", "/")
    Case "E"
        sArray = Split("①おまけを付ける/②セール感覚の均一仕掛け/③セット作戦", "/")
    Case Else
        itemSelect = ""
        Exit Function
    End Select
    
    itemSelect = sArray(CInt(Rnd() * 150) Mod (UBound(sArray) + 1))
End Function

http://www.sanynet.ne.jp/~awa/excelvba/kouza.html