Excel makro skal kopiere linier

Excel 2003
Et excel-dokument består af flere ark. I hovedarket er der indtastet en hel del værdier. Jeg skal "smage" på kolonne D (fra D4 til ca. D200). I kolonne D optræder kun tal. Hvis tallet 2 optræder i en celle i kolonne D, skal hele den pågældende række kopieres til det underark, jeg har kaldt "Konto2". Jeg har i alt under 10 underark.
Jeg har fundet forsk. eksempler på makroer, men jeg har ikke kunnet få nogen af dem til at virke, og jeg er i tvivl om, hvor i makroen jeg skal rette, og hvor jeg ikke skal.

Et eksempel på en makro, en anden bruger har kunnet bruge, kunne være dette (jeg har ikke rettet den til):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        Select Case UCase(Target)
        Case "GT"
            Rows(Target.Row).Copy Sheets("GT").Range("A65536").End(xlUp).Offset(1, 0)
        Case "SN"
            Rows(Target.Row).Copy Sheets("SN").Range("A65536").End(xlUp).Offset(1, 0)
        End Select
    End If

End Sub

Jeg har kæmpet LÆNGE med at finde en løsning, men det er godt nok svært, når man skal starte nærmest helt fra nul på at lære grundlæggende Visual Basic...