Code to Copy only Rows With a Value in Column C greater than 0

I have a sheet named Entry and a sheet named Wood Total. When i click on a button with macro on the Entry Sheet it will send all data to the Wood Total sheet. I only want to copy rows with a value greater than 0 in column C. Can this code be modified to do this?

Data.pdf

ActiveCell.Offset(4, 10).Range("A1").Select
    Sheets("Entry").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1:J24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Wood Total").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

I have data on the Entry sheet to the left and right of the cells that I want to copy, I dont want to filter this data. How will the filter effect these cells if any? Thanks

Well,
If you do it manually, you can select any range. Try it using filter function.
Have you tried my code?

My original post was not my actual workbook so the code you provided doesn't work. Sorry to waste your time.
This is my actual workbook so If you could provide code I would greatly appreciate it.
I really dont want to do it manually, I would like it to be automatic after clicking the button to send data only with a value greater than 0 in column I. If the value is 0 I dont want to copy. Thanks

Book3.xlsx

I want to copy from sheet Entry G12:P20 to sheet Wood Total A1:J1. On the Entry sheet if the value in column I is 0 dont copy that row. On Wood Total sheet i need the copied data to fill the next blank row. Hope that all makes sense.

I will also copy Sheet Entry cells G27:P37 to sheet Plam Total A1:J1. I was planning on just editing the code to do this, but I may not have enough knowledge to do it.

I would like to do all this with one click of the button on the Entry Sheet Below the Picture.

Thank You

"I really dont want to do it manually".
I did not mean you use copy and paste function. You can use filter function.
Data-Filter (Auto filter is on), click column C arrow, choose the criteria, copy the required range and paste them in to sheet entry.
No macro need, no complication.
You can record your action if you wish to use a code.

Well, the code that you provided works great. Thank You
But there is a problem with it working with the existing code I had that sends data to the Cabinet Total sheet. I thought I could leave that code the same as it was and just add the code that you provide to it. But after I use your click button it is much smoother than what I had, my screen would jump around and it would eventually send all the data to the right spot but it took it some time.
My question to you is would you mind providing code to move the data to the Cabinet Total sheet? I have provided the code that i have that shows the cell to copy and where to copy them to. If you need any more info, I would be glad to help. Thank You so Much! Very Smooth

Sub UpperCabinet()
'
' Upper Cabinet Macro
' Move Upper Data To Total Sheets
'

'
    ActiveWindow.SmallScroll Down:=30
    Range("E18").Select
    Selection.Copy
    Sheets("Cabinet Total").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("E17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("B1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("E21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("B15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("E1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("F1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("G1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("H1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("I1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("J1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Entry").Select
    Range("AF18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Cabinet Total").Select
    Range("L1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Entry").Select
    Range("B13").Select
    Application.CutCopyMode = False
    Union(Sheets("Entry").Range("E18"), Sheets("Entry").Range("E21")).Value = ""

End Sub

I am not sure I understand what are you trying to do.
The code I provide does not jump. It is fast and will not flick the screens. I do not understand why and how my code interfere with your code.

If you want me to write you another code, you need to show me the desired result with explanation.

I will doze- off in a minute.

No No your code is great, Very Smooth. My existing code was jumpy.

I want to add to your code to Copy from the Entry sheet and Paste to Cabinet Total sheet.

(Copy Entry Sheet Cell) (Paste to Cabinet Total sheet cell)
Copy E18 Paste A1
Copy E17 Paste B1
Copy E21 Paste C1
Copy B15 Paste D1
Copy E13 Paste E1
Copy AF12 Paste F1
Copy AF13 Paste G1
Copy AF16 Paste H1
Copy AF14 Paste I1
Copy AF15 Paste J1
Copy AF19 Paste K1
Copy AF18 Paste L1
Copy AF20 Paste M1

Hope this isnt to much, if so you can do when you get a chance.
Thank You. Your very Kind.

Two buttons attached, one for each code.

snobl01,
You have already created a thread and I have replied to that thread. Please check it.

Wow AB33 those two buttons are so smooth I cant tell that they are doing anything until I go to the appropriate sheet and there's all the data. Thanks

Would it be to much to ask for 1 button to do both? I will have other users that will be using this someday and Im concerned that they may only click 1 button and not the other loosing data.

Also one other thing and this will be perfect, I would like the value on the Entry sheet cell E18 and E21 to be " " after clicking the button.

Thank You Very Much for Your Kindness!!

All done:-

Works Perfect!!! I will have more of these to do in the future, Im sure I will need help. I would not mind hiring you to help me, do I need to do this through the site or can I PM you? If you are interested.

Thanks Again for taking the time to help. I appreciate it.