What change should I do to run this macro from standard module?

Hi friends,
The code is working fine in the sheet module but each time I enter any value in sheet 'Information' the macro runs and take a little time to complete which is very annoying for me. It slow downs my speed of work. I want to avoide it and so want to run this macro from standard module. So that whenever I click the macro then only it will run and speed of my work.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        For Each c In Worksheets("Result").Range("B8:B90")
            c.EntireRow.Hidden = c.Value = ""
        Next c
    End If
        If Not Intersect(Target, Range("B:B")) Is Nothing Then
        For Each c In Worksheets("Test").Range("B8:B91")
            c.EntireRow.Hidden = c.Value = ""
        Next c
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox "done"
End Sub

Please suggest me a amendment to run it from standard module.

Any help will be appreciated.

Thanking you in anticipation.