Копировать строку на новый лист на основе значения, но только определенных столбцов

Question

Я использую следующий код, чтобы скопировать все строки из моего основного листа на основе критериев в столбце D

Основной лист с именем Sheet1 Criteria MATCH в столбце 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