IF THEN ...STUCK

I CANT SEEM TO FIGURE OT THIS LINE OF CODE.
I AM TRING TO SORT A LIST, PASTE IT TO ANOTHER PAGE AND PRINT
THE PROBLEM I AM HAVING IS I CANT GET THE IF THEN STATEMENT TO RECOGNIZE A CELL THAT IS BLANK AND NOT RUN THE THEN PART OF MY STATMENT...

HERE IS MY BUTCHERED PIECE OF WORK (SORRY FIRST MACRO I CREATED)
Sheets("SHEET3").Select
Range("A15").Select
Range("SHEET3!$P$1:$AB$500").AdvancedFilter Action:=xlFilterCopy, CriteriaRANGE:=Range( _
"SHEET3!$AE$1:$AE$2"), CopyToRange:=Range("SHEET3!$AS$1:$BE$1"), Unique:=False
Sheets("SINGLE").Select
If Not ("Sheet3!AE2") Is Empty Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If