replacing value

Sub ex()
Dim x, r As Range
Set x = ActiveSheet.Range("A:A")
For Each r In x


If r.Value = "daveyc18" Then
r.Offset(0, 1).Value = "20000"
Else
If r.Value = "batman" Then r.Offset(0, 1).Value = "2000"


End If
Next

End Sub