Excel VBA使用通配符进行搜索

如果可能的话，我想创建一个VBA宏来搜索整个a列中包含字母RU的所有单词（如果可能，区分大小写）。然后我希望它能够复制这些单词，并将它们粘贴到一张新的纸上，从A1开始，然后从A2开始，等等。我知道如何设置范围，但我甚至不知道如何开始写其余的。任何帮助都将不胜感激

致以最诚挚的问候。

请考虑：

Sub RUthere()
    Dim RU As String, N As Long, K As Long, _
        s1 As Worksheet, s2 As Worksheet, r As Range, _
        v As Variant
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    RU = "RU"
    K = 1
    N = s1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        Set r = s1.Cells(i, "A")
        v = r.Value
        If InStr(1, v, RU) > 0 Then
            r.Copy s2.Cells(K, "A")
            K = K + 1
        End If
    Next i
End Sub