将值作为数字复制到文本VBA

我试图复制一个数字作为文本,因为有领先0我需要保持在值…

我试过使用下面,它的复制作为一个数字,而不是文本…

 DestinationRange.cells(1).value = SourceRange(2).text 

我正在复制它的值000076 ,最终的结果是给我76但是,就像我上面所说的,我需要保持领先0 s

循环完成后,为整列设置.NumberFormat = "000000"