需要将特定值从随机放置在一行中的单元格移动到另一行

Question

当column I中的值时，我想将随机放置在row 174中的特定12个单元格移动到column R，移到row P中，该行下降到第15行。显示“确定”。

应该发生这种情况，以便如果column P row 3中的值设置为“确定”，那么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

当前它什么也没做。