Loop without Do

[JTL9161]

I need a 2nd pair of eyes to look at this. I am getting Loop without Do.

Thanks,
James

Do While ActiveCell <> ""
Selection.Copy
Set myActiveCell = ActiveCell
ActiveCell.Offset(0, -4).Select

With Worksheets(1).Range("a:a")
Dim value As String
value = ActiveCell.value

Dim c As Range
Set c = .Find(value, LookIn:=xlValues)
If Not c Is Nothing Then
c.Activate
ActiveCell.Offset(0, 4).Select

ActiveSheet.Paste
myActiveCell.Activate
Rows(ActiveCell.Row).Delete
End If
Loop

 

[Gary McMaster]

Hi James,

Probably the missing "End With"

Gary

 

[JTL9161]

When I add the END WITH I get Do with Loop now.

 

[Gary McMaster]

I don't know what you're trying to do but I put the "End With" in between the "End If" and "Loop" and didn't get any errors. Of course I couldn't tell if it was working properly because I don't know what your data looks like but it did run.