copy cells to another worksheet in same workbook

[reddcannon]

Ok I am using Excel 2007
I want to copy 4 cells from a row on sheet 1 to sheet 2 based on value in first cell in row. Example if cell a13 > 0 then copy row 13, cells b13 thru e13 only to first available row in sheet two but starting from row 12 on sheet two. Because sheet 2 has title information at the top from row 1-12.

I would rather not have to use a button to do it, would like it to do it as data is entered in sheet 1.

is this possible

 

[patel45]

i can help you, but with button

 

[reddcannon]

Sure that would be great as well. I am desperate

 

[reddcannon]

Not sure my reply went through, but yes, I would be glad to have the code for the button route

 

[patel45]

Sub a()
r = 13
LR = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
With Sheets(1)
If .Range("A" & r) > 0 Then
  .Range("B" & r & ":E" & r).Copy Sheets(2).Range("A" & LR)
End If
End Sub

if problems please upload a sample file on a share site then paste the link here

 

[reddcannon]

Thanks, you are talking to a novice here. I assume I need to put the real names of my sheets where you have the numbers 1 and 2, is that right.