How to insert a value in an adjacent cell range based on a condition

I want my code to insert "190" in cell B1 if A1 is equal to "1" and right after make the cursor to blink so the B1 value could be complemmented with additional digits.

I have done this procedure. However it does work only for a cell and not for the entire range ()

'''Sub BULK() If range("A1").Value = 1 Then range("B1").Value = C190 End Sub '''

I expect the output to be "C190" and the cursor blinking to type additional digits.