Copy/Paste if cell equals a word

[steven426]

Hi:

I am trying to figure out how to go down a list of words and copy/paste a row if it equals a specific ring of words. For example, if want to go down a column and copy the word "Dog" if the word is "Dog" and paste it to the second sheet in a certain column... The thing that I can't figure out is how to step down to the next row until the cell is empty...

I tried the code below, which is nowhere close to working... thanks

Sub Cats_and_Dogs()
For i = 1 To 100
If Range("i, 1") = "Dog" Then
Range("i,1").Select
Selection.Copy
Sheet2.Paste
End If
Next
End Sub

 

[yahoo80]

I guess I could explain a bit more:
I got a column of non and numeric values and want to copy numeric to the same row in next column. If its not numeric than i want to copy the last numeric value. so need a help with the part below:
else IsNumeric(Cell.Value) = False Then ... (eg copy here the cell above)
thanks