Error "Microsoft office excel cannot create or use the data range reference because it is too complex"

Sub loop4()
Dim lr As Long
Dim i As Range
Dim tmp As String
lr = Range("A" & Rows.Count).End(xlUp).Row
 For Each i In Range("A1:A" & lr)
  tmp = Left$(i.Value, InStr(i.Value, ":"))
  If tmp = "MyIndex No:" Or tmp = "Data Xi No:" Then
   i.Copy Destination:=Range("F" & Rows.Count).End(xlUp).Offset(1, 0)
  End If
 Next i
End Sub

Sub loop4()
Dim lr As Long
Dim i As Range
Dim tmp As String
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
lr = Range("A" & Rows.Count).End(xlUp).Row
For Each i In Range("A1:A" & lr)
    tmp = Left$(i.Value, InStr(i.Value, ":"))
    If tmp = "MyIndex No:" Or tmp = "Data Xi No:" Then
        i.Copy Destination:=Range("F" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next i
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With
End Sub