Copy data from worksheets to master sheet

Hi,

I have one input workbook with multiple worksheets(all are with same table format) and I have to look in to each worksheet and if there value then it should select a range of values and paste the same to master Sheet and if no value then it should look for next worksheet and this should happen till the end worksheet in the input sheet.

I have attached a sample worksheets with code bu its not working propperly

hope any one of u can solve this problem

Sub testtest()
'

'
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
If IsNumeric([A8]) Then
    Range("A8").Select
    Range(ActiveCell, ActiveCell.Offset(0, 4)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("output report.xlsm").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If

Next ws
End Sub

In input sheet the default cell range be same for all worksheets. If that perticuler cell is not having value it should skip the worksheet and look at next worksheet

Thanks,
NM