So you want dog in columns B, C & D on sheet2 ?
If that's the correct, then you'll want something like this.
Sub MoveNo()
Dim i As Integer
Sheets("Sheet1").Select
Range("A1").Select
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To LastRow
If Range("A" & i).Value = "no" Then
Range("C" & i).Copy
Sheets("Sheet2").Select
If Range("B1").Value = "" Then
Range("B1").Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).PasteSpecial (xlPasteValues)
Sheets("Sheet1").Select
Else
Range("B100000").End(xlUp).Offset(1, 0).Select
Range(ActiveCell, ActiveCell.Offset(0, 2)).PasteSpecial (xlPasteValues)
Sheets("Sheet1").Select
End If
End If
Next i
End Sub