'finding last record in my initial list
sheet_last_row = Sheets("mylist").Range("A" & Rows.Count).End(xlUp).Row

    For i = 2 To sheet_last_row
        last_row = Sheets("results").Cells(Rows.Count, 1).End(xlUp).Row

        If Sheets("mylist").Cells(i, 1).Value = 2 Then
'test if cell is merged
            If Sheets("mylist").Cells(i, 2).MergeCells Then
                RowCount = Sheets("mylist").Cells(i, 2).Value

            End If
            Sheets("mylist").Cells(i, 1).EntireRow.Copy Sheets("results").Cells(last_row + 1, 1)
        End If

    Next i