необходимо переместить конкретные значения из ячейки, расположенной случайным образом в строке, в другую строку

Question

Я хочу переместить конкретные 12 ячеек, размещенных случайным образом в column I, который уменьшается до row 174, в column R, который идет вниз в строку 15, когда значения в row P отображают «Ok».

Это должно происходить так, что если значение в column P row 3 установлено на «Ok», то все ячейки в column I, содержащие значение 020-SWT-001, будут переведены в column R. (column I начинается с row 2, column R начинается с row 3 и column P начинается с row 3)

Sub test()
    Dim switch As String
    Dim numb As Integer
    For row = 3 To 8
        numb = 1
        switch = "020-SWT-00"
        If Range("P" & row).Value Like "Ok" Then
            For row2 = 2 To 174
                If IsEmpty("I" & row2) = False Then
                    If Range("I" & row2).Value = switch & CStr(numb) Then
                        For row3 = 3 To 15
                            If IsEmpty("R" & row3) Then
                                Range("R" & row3).Value = Range("I" & row2).Value
                                Range("I" & row2).Value = ""
        numb = numb + 1
                            End If
                        Next row3
                    End If
                End If
            Next row2
        End If
    Next row
End Sub

В настоящее время он ничего не делает.