Sub or Function not defined error???

[perezpa]

Let's play Where's Waldo! Except that in this case, Waldo is the line that is giving me an error! I can't find it! Can you?

Option Explicit

Sub La_Joa()


Dim Centro As Range
Dim resumen As Worksheet
Dim Agregado As Worksheet
Dim rngCell As Range
Dim i As Integer

'Range("A1:F55").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

'Columns("G:G").Delete Shift:=xlToLeft
'Columns("K:P").Delete Shift:=xlToLeft

Set resumen = Worksheets("Resumen")
Set Agregado = Worksheets("Agregado")
    
For Each rngCell In Range("Center")

    For i = 1 To 50
        If Cell(i, 3).Value2 = "600" Then
            Cell(i, 3).Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlUp)).Copy
        End If
    Next
    Agregado.Range("tbPro[PosID]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Next rngCell


End Sub

Compile Error: Sub or Function not defined.


Thank you in advance!

 

[Hermanito]

I'm still trying to wrap my head around

   Cell(i, 3).Select
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlUp)).Copy

I've read it multiple times and I honestly cannot say for sure what will end up being selected to copy...
Like p45cal already said: probably this code is not doing what you expect it to do... and if it does, you are expecting some weird stuff