Hello,
I have a problem with disapearing zeros..
my formula so far to copy proper numbers to other sheet is:
Dim cellR As RangeDim lastRowR As Long, r As Long
lastRowR = Range("J" & Rows.Count).End(xlUp).row
r = 2
For Each cellR In Sheets(1).Range("J1:J" & lastRowR)
If Len(cellR)...