How to use a cell range to color another one?

I have used conditional formatting to color cells with numbers (column A):

Now i want to reproduce this formatting on a text cell range (column B).

I have tried the vba following code but it does now work:

Worksheets("Sheet1").Range("B1:B4").Interior.Color = 
Worksheets("Sheet1").Range("A1:A4").Interior.Color