VBA to replace multiple values with specific labels

Of course you can do this with VBA but then we have too little information. for instance selec a range with such numbers and run for instance such macro:

Sub test()
Dim cell As Range
For Each cell In Selection
 If IsNumeric(cell) Then
   cell = Application.WorksheetFunction.VLookup(cell, Sheets("Arkusz1").Range("I2:J7"), 2, True)
 End If
Next cell
End Sub

try selecting B2:B4 in attachment from previous post and run it. of course after such macro formula in column C will return errors