VBA - trick to convert data to numbers

' old trick to convert data to numbers
    With Sheets("MD").Range("IV1")
        .Value = 0
        .Copy
    End With
    Sheets("MD").ListObjects("Masterdata").ListColumns("Код SKU "). _
       DataBodyRange.PasteSpecial Operation:=xlPasteSpecialOperationAdd
    Sheets("MD").Range("IV1").Clear

' superior version
    With Sheets("MD").ListObjects("Masterdata").ListColumns("Код SKU ").DataBodyRange
        .Value = .Value
    End With