VB script for Excel spreadsheet printing

Ok, I really stumbled on this one.

 A friend got me through the hurdle.  And walked me through it.

So here goes.  Design the button, edit the code for it

here's the code for mine

rivate Sub CommandButton1_Click()

    Dim i, j As Integer

    ActiveSheet.Unprotect
   
    i = 2
    j = 2
    Do
       
        Do While Cells(j, 15) = "" And Cells(j, 1) <> "ENDOFLIST"
            j = j + 1
        Loop
               
        If j > i Then
            Range("A" & i & ":P" & j).Select
            Selection.EntireRow.Hidden = True
        End If
        i = j
       
        Do While Cells(j, 15) <> "" And Cells(j, 1) <> "ENDOFLIST"
            j = j + 1
        Loop
       
        Range("A" & i & ":P" & j).Select
        Selection.EntireRow.Hidden = False
        i = j
     
    Loop Until Cells(i, 1) = "ENDOFLIST"
   
    ActiveSheet.PageSetup.PrintArea = "$A$1:$p$" & i
    ActiveWindow.SelectedSheets.PrintPreview
 
    Range("A1:P" & i).Select
    Selection.EntireRow.Hidden = False
   
 
End Sub

'it's dynamic to the active sheet, so wow I really was impressed with the simplicity of it.