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

Я хотел бы скопировать что-нибудь с буквой L из «sheet5» и скопировать определенный диапазон в «sheet1»

У меня должно быть что-то не так с частью цикла кода, потому что копируется только верхняя часть диапазона ячеек. Я бы хотел, чтобы вставка началась в 5-м ряду и продолжала двигаться вниз. Означает ли это, что я правильно поместил IRow = IRow + 1 ниже функции вставки?

Sub Paste_Value_Test()

Dim c As Range
Dim IRow As Long
Dim rDestination As Excel.Range

Application.ScreenUpdating = False
Sheets("sheet5").Activate
For Each c In Sheets("sheet5").Range("b2", Range("N65536").End(xlUp))
    If c.Value = "L" Then
        Sheets("sheet5").Cells(c.Row, 2).Copy

        Set rDestination = Worksheets("sheet5").Cells(5 + IRow, 12)

        rDestination.Select
        Selection.PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
        Transpose:=False

        IRow = IRow + 1

    End If
Next c

End Sub

Я действительно ценю любую помощь в этом. Я относительно новичок в VBA и собираюсь начать всерьез копаться.