Its a bit hard to decypher what you are asking for, but to me it seems like you want to copy certain cells in a row if the value in column F of that row is y. If that is true, this should do it for you:

Public Sub jabryantiii()

Sheets("Sheet1").Copy After:=Sheets("Sheet1")
ActiveSheet.Name = "NewSheetName" 'Your wanted sheet name here.
For i = 4 To 34
    If Sheets("Sheet1").Cells(i, 6).Value = "y" Then
        For j = 1 To 3
            ActiveSheet.Cells(i, j).Value = Sheets("Sheet1").Cells(i, j).Value
        Next j
        ActiveSheet.Cells(i, 6).Value = Sheets("Sheet1").Cells(i, 6).Value
        For k = 9 To 17
            ActiveSheet.Cells(i, k).Value = Sheets("Sheet1").Cells(i, k).Value
        Next k
    End If
Next i

End Sub
If not, could you try explaining it again in some other way?