Code correction

Hi,

How can I rewrite this code VBA?

Sheets("Sales").Select
Range("A2").Select

Do Until IsEmpty(ActiveCell.Offset(, 2))
 ActiveCell.Value = ActiveCell.Row - 1
ActiveCell.Offset(1, 0).Select
Loop

Thanks