bestimmte Zeilen kopieren

Hallo,
ich habe eine Liste und möchte sofern in einer Spalte E okay steht, diese Zeilen kopieren. Leider kopiert das Makro alle Zeilen. Siehe Beispieldatei und Code.
https://www.herber.de/bbs/user/91194.xlsm
Leider weiß ich nicht warum!
Grüße
Stephan
Bisher habe ich folgenden Code:
Option Explicit

Sub Kopieren()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1")
Dim i As Long
Do While ws.Range("E2").Offset(i, 0).Value <> ""
If ws.Range("E2").Offset(i, 0).Value Like "okay" Then
ws.UsedRange.Copy Destination:=Sheets("Tabelle2").Range("A2")
End If
i = i + 1
Loop
End Sub