macro prints filtered rows

Hello to all.
Because this macro does not work well?

Sub print_filtered_row()

Dim conferma

If Cells(1, 1) = "enter the name" Then 'A1
MsgBox "first you have to filter the rows!", vbInformation, "AVVISO!"
Exit Sub

ElseIf Cells(1, 1) <> "" And AutoFilter = False Then
MsgBox "first you have to filter the rows!", vbInformation, "AVVISO!"
Exit Sub

Else
If Cells(1, 1) <> "enter the name" And AutoFilter = True Then
'End If

conferma = MsgBox("you want to print the filtered rows?", vbInformation + vbYesNo, "AVVISO!")
If conferma = 6 Then

ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Else
If conferma = 7 Then
Exit Sub

End If
End If
End If
End If

End Sub

From here does not continue:

else
If Cells (1, 1) <> "enter the name" And AutoFilter = True Then
'End If

a help?
Thank you,
max_max