Code om Cellen leeg te maken en bepaalde regels te kopieren

[MuM111]

Hulp code; bepaalde regels kopieren werkt niet

Beste forumleden,

kan iemand mij helpen met volgende (zie voorbeeldbestand)?

Ik wil graag de cellen kolom A-C waarbij in kolom A een z staat leeg maken.
Daarna zouden de cellen gekopieerd moeten worden als bij kolom C een waarde staat.
Bij waarde 104,107 en 110 dan 2 regels met kopie waarde, de rest 1 regel.
Deze kunnen gekopieerd worden op eerstvolgende lege regel.

Bvd voor de hulp.

Bekijk bijlage Test.xls

 

[MuM111]

Heb zelf de volgende code in elkaar gezet.
1e gedeelte om de cellen te legen gaat goed.
2e gedeelte om de cellen te kopieren naar 1e lege cel gaat fout.

Iemand die mij op weg kan helpen?
Bvd

    Dim i As Integer
    Dim y As Integer
    i = ActiveSheet.Range("A5:A208").Rows.Count
    For y = i To 1 Step -1
        If Cells(y, 1).Value = "z" Then
           Range(Cells(y, 1), Cells(y, 15)).ClearContents
        End If
    Next
    
    Dim j As Integer
    
    i = ActiveSheet.Range("A5:A208").Rows.Count
    For y = 1 To i Step 1
        If Cells(y, 7).Value = "104" Or "107" Or "110" Then
           Range(Cells(y, 1), Cells(y, 15)).Copy
           For j = 1 To i Step 1
                If Cells(j, 1).Value = "" Then
                Selection.Paste
                Range(1, 1).Selection.Paste
                End If
           Next
        ElseIf Cells(y, 7).Value > "101" Then
               Range(Cells(y, 1), Cells(y, 15)).Copy
               For j = 1 To i Step 1
                If Cells(j, 1).Value = "" Then
                Selection.Paste
                End If
               Next
        End If
    Next