Discriminar datos y pegarlo en la misma hoja

Hola Todoexpertos
Un experto me dio una hoja de excel con la macro que yo había pedido, esta buenísimo, pero bueno, uno nunca se conforma y creía que lo podía hacerlo yo mismo y lo que único que puedo hacer es grabar macros automáticamente cosa que tarda bastante.
Bueno vamos al tema
http://goo.gl/8AqKr ahi esta el archivo.
Me gustaría si pueden hacerlo, que en vez que copie las filas que contenga algún dato en B que no lo pase a otra hoja, sino en la misma hoja, en la columna M en adelante. Una vez copiado los datos descriminados de A B y C, que los datos de B se borren y cuando vuelva a discriminar más datos, que no se borre los datos discriminados anteriormente, que baje los datos hacia abajo.
Acá les mando la macro. Gracias el experto que lo hizo.
Sub Discriminar()
    Dim nFilaHoja1 As Long
    Dim nFilaHoja2 As Long
    'Borramos el contenido de la hoja 2
    Sheets("Hoja2").Range("A2:C65536").ClearContents
    nFilaHoja1 = 2
    nFilaHoja2 = 2
    'Recorremos todas las filas que tengan descripción
    Do While ActiveSheet.Cells(nFilaHoja1, 1).Value <> ""
        If ActiveSheet.Cells(nFilaHoja1, 2).Value <> "" Then
            'Si la celda "Cantidad" tiene info, copiamos la fila a la Hoja2
            With Sheets("Hoja2")
                .Cells(nFilaHoja2, 1) = ActiveSheet.Cells(nFilaHoja1, 1)
                .Cells(nFilaHoja2, 2) = ActiveSheet.Cells(nFilaHoja1, 2)
                .Cells(nFilaHoja2, 3) = ActiveSheet.Cells(nFilaHoja1, 3)
            End With
            nFilaHoja2 = nFilaHoja2 + 1
        End If
        nFilaHoja1 = nFilaHoja1 + 1
    Loop
    'Mostramos la Hoja2 para ver los resultados
    Sheets("Hoja2").Select
End Sub
Desde ya muchas gracias.