Bestimmte Zeilen Kopieren

kann mir einer sagen, wie ich folgenden Code in Excel 2000 zum Laufen bringen kann (stammt von Michael S.)?

Sub suchen_und_kopieren()
Dim lastrow, lastrow2 As Integer
Dim hilfe As Integer
lastrow = Worksheets("Tabelle1").Range("A65536").End(xlUp).Row
Sheets("Tabelle1").Select
For hilfe = 1 To lastrow

If Cells(hilfe, 1) = "2" Then

Range(Cells(hilfe, 1), Cells(hilfe, 4)).Select
Selection.Copy
Sheets("Tabelle2").Select

lastrow2 = Worksheets("Tabelle2").Range("A65536").End(xlUp).Row
Cells(lastrow2 + 1, 1).Select
ActiveSheet.Paste
Sheets("Tabelle1").Select

End If

Next hilfe

End Sub

Gruss,
Dirk