Sub test()
**Sheets("Sheet1").Select
If Range("A1") = Range("C1") Then
    If Range("B1").Value > "0" Then
        Range("B1").Copy
        Sheets("Sheet2").Select
        Range("B1").PasteSpecial xlPasteValues
        else
        end if
else
end if
end sub