I have used following code and run successfully.

Code:
Sub mcopy()

a = Worksheets("CRM").Cells(Rows.Count, 1).End(xlUp).Row

Dim myModule As String
myModule = Application.InputBox("Enter a Module")

For i = 2 To a
    If Worksheets("CRM").Cells(i, 4).Value = myModule Then

        Worksheets("CRM").Rows(i).Copy
        Worksheets("MODCRM").Activate
...