Run time error 1004 for macro

[gregoryspeters]

I am receiving an error for a macro within the attached spreadsheet that is supposed to move completed rows from the 'manual data' tab to the 'completed' tab. I am unsure how to fix the Run-time error 1004, so I am posting here for help. The rows are being moved to the 'completed' tab; however, they are not being deleted from the 'manual data' tab as expected. Please let me know if you need any additional info. Thanks Copy of Excel Testing___10-9-12 maintenance2.zip

[jaslake]

Hi gregoryspeters

Perhaps this

Option Explicit

Sub TransferToCompleted()

    Dim LR As Long
    Dim TA As Long
    Dim Ronos As String

    LR = Sheets("manual data").Range("$A$1").CurrentRegion.Rows.Count


    Sheets("manual data").Range("$A$1").CurrentRegion.AutoFilter Field:=25, Criteria1:="Yes"

    With Sheets("completed")
        If .Range("A2") = "" Then
            Range("A2:Y" & LR).Copy .Range("A2")
        Else
            Range("A2:Y" & LR).Copy .Range("A2").End(xlDown).Offset(1, 0)
        End If
    End With

    With Sheets("manual data")
        .UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilterMode = False
    End With
End Sub

[gregoryspeters]

Works great... thanks for your help!

[jaslake]

You're welcome...glad I could help.