excel and vba

[Mongo]

Sub CopyIt()
Dim hits As Integer
Dim rng As Range, cell As Range
  Set rng = ActiveSheet.Range("F4:F66")
  hits = 0
  For Each cell In rng
    '  more efficient way of saying >= 1...
    If cell > 0 Then
      Range("B" & cell.Row & ":G" & cell.Row).Copy Range("B" & (101 + hits))
      hits = hits + 1
    End If
  Next cell
  Set rng = Nothing
  Set cell = Nothing
End Sub