Loop to Copy/Paste Defined Data

The attached should explain what I'm trying to accomplish.

Essentially, I would like to loop through a column (where I have tested my data and returned a 1 if true, 0 if false - Column K in attached). For each instance of 1, I would like to copy the corresponding Name (Column D in attached) and paste to a defined area. Loop continues whereby each instance of 0 is ignored and each instance of 1 results in the corresponding name being copied and pasted offset to the most recent existing by 0 columns and 3 rows.

Souce code included in Module 1 is my effort, need help wrapping it up.

Sub AboveAnalysis()

    Application.ScreenUpdating = False
    
    Sheets("Sheet1").Select
    Dim Name As Range
    Dim counter As Integer
    Dim c As Integer
        counter = 0
        Range("StartAnalysis").Select
        For c = 0 To 7
            counter = ActiveCell.Offset(c, 0).Value
            If counter = 1 Then
            
            ' THIS IS WHERE I NEED ASSISTANCE TO COPY/PASTE THE CORRESPONDING NAME WHERE CODE = 1, SKIPPING TWO
            ' LINES FOR EACH CODE = 1.
            
            End If
        Next c

End Sub

Thanks!