Skip Section of Code if Filter Returns a Blank

[tamiso2311]

I have a spreadsheet which will collect a large amount of data throughout the year that I need to report on Monthly. However at present there is very little in there.
I have written into my macro for it to copy select data remaining from three columns after 3 filters have been applied into another sheet. (the filters contain data from drop down lists so there is no possibility of anyone entering incorrect information.)

The problem I am having is that if the applied filters return a blank the macro copies and pastes the entire column within the specified datarange. Can anyone assist me in some sort of If/Else statement that will have it do nothing if the filter returns a blank and move onto the next section of code.
I have included the problem code below.

Sheets("2013 EOI_Tender").Select
    ActiveSheet.Range("$A$7:$AT$55").AutoFilter Field:=7, Criteria1:="Jan"
    ActiveSheet.Range("$A$7:$AT$55").AutoFilter Field:=4, Criteria1:="Tender"
    ActiveSheet.Range("$A$7:$AT$55").AutoFilter Field:=5, Criteria1:= _
    "Successful"

"This is where it is returning a blank result.  I want it to stop from processing the next bit of code, and move onto another process in the macro"

Sheets("2013 EOI_Tender").Select
    ActiveSheet.Range("C8:C55").Select
    Selection.Copy
    Sheets("Monthly Report").Select
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False