The following code keeps multiplying by a million instead of ending once the next cell is blank or has a zero. Do I need to have an offset? If so, how should it look?
any help would be useful.
Code:
Set myRange = Range("B10:B20")
For Each c In myRange
If IsNumeric(c) Then
c.Value = c.Value * 1000000
Else
c.Value = ("")
End If
Next
For Each cell In [B11:B20]
If cell.Value = "0" Then cell.ClearContents
Next cell
Next
Range("A10:G20").Copy Destination:=Sheets("Sheet2").Range("H11")
any help would be useful.