Hej! Behöver hjälp med att utveckla min kod, har koden nedan som kopierar en rad i t.ex Blad1 om en cell i den raden innehåller ett specifikt värde. Behöver hjälp med att komplementera koden med att den även ska ta med sig första raden i Blad1. Så makrot ska kopiera första raden (A:A) samt kopiera raderna som innehåller ett specifikt cellvärde, i detta fall (yes). Sedan ska allt detta klistras in i Blad2. Tack för hjälpen!

Sub CopyYes()

    Dim c As Range

    Dim j As Integer

    Dim Source As Worksheet

    Dim Target As Worksheet

    Set Source = ActiveWorkbook.Worksheets("Blad1")

    Set Target = ActiveWorkbook.Worksheets("Blad2")

    j = 1     ' Start copying to row 1 in target sheet

    For Each c In Source.Range("Z1:Z1000")   ' Do 1000 rows

        If c = "yes" Then

           Source.Rows(c.Row).Copy Target.Rows(j)

           j = j + 1

        End If

    Next c

End Sub