Option Explicit
Sub copyAboveZero()
Dim sourceRng As Range
Dim cell As Range
Dim i As Long
Set sourceRng = ActiveSheet.Range("E2:E100")
i = 1
For Each cell In sourceRng
If cell.Value > 0 Then
cell.Resize(1, 2).EntireRow.Copy Destination:=Sheet2.Range("A" & i)
cell.Resize(1, 2).EntireRow.Delete
i = i + 1
End If
Next cell
End Sub
This line : 63N032 3075000.020 0021191799 76 4 refuses to be deleted. I've checked the number "4" and it is FORMATTED the same as all the other numbers.
I don't have an answer for you.
Bookmarks