Macro to compare row criteria and cut to tab

Just put this :

Range(Range("A1").Offset(i, 0), Range("A1").Offset(i+1, 0)).EntireRow.Copy

in steed of:

   Range("A1").Offset(i, 0).EntireRow.Copy