Limit the number of rows that get copied.

[leaning]

Hello!

This code copies the values from selected rows of Sheet1 to another sheet ("Labels")

If the Labels destination row is 14 or greater, I don't want the copy operation to work.

What is the best way to modify this code to do that? Maybe even a message box that says "You already have 12 labels prepared on the Label sheet."?

Private Sub btnEditLabels_Click()
Dim ce As Range
   For Each ce In Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Not IsEmpty(ce) Then
        With Sheets("Labels")
            .Unprotect "SECRET"
            .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 17).Value = Range(ce, ce.Offset(0, 16)).Value
            ce.ClearContents
            .Select
            .Protect "SECRET"
            End With
        End If
    Next ce
End Sub

I appreciate the help!

Respectfully,

Lost