Copy Rows to sheet if column value >40, multiple sheets

Hi. I am very new to this and I assume I am needing macros rather than formula to complete this task.
basically I have 12 sheets of data, if column H (in any of these sheets & rows) has a currency value greater than 40;
I want to copy the entire row/s to Sheet16 named "Major" - which has the exact same columns and formatting.
I need this to be automatic.
What code do I need, where do I put the code? Thank you

Hello,

Try and see if this code helps. Add it to a regular module and run it.

Please Login or Register  to view this content.

thanks

Awesome, so do I add this to the Major sheet, or to each of sheets with data? right click on sheet, view code, paste? sorry i am still learning

You will have to add a module. Read this for more information. http://www.jlathamsite.com/Teach/Excel_GP_Code.htm

Theres an error msg appearing, other than that its works really well :D

Sub SumaryData()

Dim sh As Worksheet
Dim lrOrigen As Long
Dim lrTarget As Long

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets

If sh.Name <> "Major Projects" Then
lrOrigen = sh.Range("A1").CurrentRegion.Rows.Count
lrTarget = Sheets("Major Projects").Range("A1").CurrentRegion.Rows.Count + 1
'Filter the data
sh.Range("A1").CurrentRegion.AutoFilter Field:=8, Criteria1:=">40000"
sh.Range("A1").CurrentRegion.Offset(1).Resize(lrOrigen - 1).Copy _
Destination:=Sheets("Major Projects").Range("A" & lrTarget)
'clear the filters
sh.Range("A1").CurrentRegion.AutoFilter
End If
Next
Application.ScreenUpdating = False
End Sub

Also, if the macro is run twice, then the data just keeps being generated, rather than only adding new entries, is there a way around this? thanks again

This code is great ! Thank you Sooo much!

quick question, how do I exclude it from pulling my Row ONE on each sheet, as to not add the headers ?