根据值但仅某些列将行复制到新工作表

Question

我正在使用以下代码根据D列中的条件从主工作表中复制所有行

名为Sheet1的主表 D列中的条件匹配

Sub CopyRow()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim x As Long
    x = 1
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("D3:D" & LastRow)
        If rng = "MATCH" Then
            rng.EntireRow.Copy
            Sheets("TEST").Cells(x, 1).PasteSpecial xlPasteValues
            x = x + 1
        End If
    Next rng
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

但是我只想在某些列之间移动，例如C，D，H，M，P列