Copy rows to a new worksheet if column a contains a number.

[vac]

Hi all,
I used to be able to do this, but have forgotten how. I need to
Copy rows from sheets 2 3 4 5 etc to worksheet 1, if column A on any of the worksheets contains a number.
I think last time I used the vlookup.
Can anyone help please.
Many Thanks,
Vac

 

[onlyadrafter]

Hello,

i can;t see how you would have used vlookup, how about a macro?

Sub COPT_TO_SHT_1()
Application.ScreenUpdating = False
For MY_WBOOKS = 2 To 5
    Sheets(MY_WBOOKS).Activate
    For MY_ROWS = 1 To Range("A65536").End(xlUp).Row
        If IsNumeric(Range("A" & MY_ROWS)) Then
            Rows(MY_ROWS).Copy
            Sheets(1).Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial (xlValues)
        End If
    Next MY_ROWS
Next MY_WBOOKS
Application.ScreenUpdating = True
End Sub

have assumed sheet 1 is first in the tab order.

 

[vac]

Thanks for the reply. Maybee it was with a macro but I cant find it for the life of me, lol. thanks for the script but im getting an arror on the MY_WBOOKS line?
Any ideas??
Thanks again

 

[onlyadrafter]

Hello,

Which line exactly, the top or bottom 1.

Also what is the tab order of your sheets?

 

[vac]

Order is Sheet1, Sheet2 Sheet3 etc
Sheet1 is where i want the info to goto.

Error is runtime error 9
Subscript out of range
debug points to:
Sheets(MY_WBOOKS).Activate
Thanks