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

Question

Необходимо скопировать строки (динамические) с определенным текстом и вставить в качестве значений на другой лист.Также следующий набор строк должен быть добавлен ниже скопированных ячеек.

Option Explicit

Sub TestMe()

    Dim Check As Range
    Dim matchRow As Long

    With Worksheets(1)
        For Each Check In .Range("F:F")
            If Check.Value = "Pay" Then
                matchRow = Check.Row
                .Rows(matchRow & ":" & matchRow).Select
                .Rows(matchRow & ":" & matchRow).Select
                Selection.Copy
                Worksheets(4).Activate
                Worksheets(4).Rows(matchRow).Select
                Worksheets(4).Paste
                .Select
            End If
        Next
    End With
End Sub

1. Лист с копией в столбце F для копирования.

2. Лист, в котором необходимо создать каталог.

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