this should do it
Sub abc()
Dim a, aTollCharges, i As Long, ii As Long, n As Long
With Worksheets("Rawdata")
a = .Range("a1").CurrentRegion
End With
ReDim aTollCharges(1 To UBound(a), 1 To UBound(a, 2))
For i = 2 To UBound(a)
If Not IsEmpty(a(i, 8)) And a(i, 8) > 0 Then
n = n + 1
For ii = 1 To UBound(a, 2)
aTollCharges(n, ii) = a(i, ii)
Next
End If
Next
With Worksheets("TollCharge")
.Cells(1).Resize(, UBound(a, 2)) = Worksheets("Rawdata").Range("a1:h1").Value
.Cells(2, 1).Resize(n, UBound(a, 2)) = aTollCharges
End With
End Sub
Bookmarks