Why are my last row and last column references selecting only one cell?

       lrow = legal_ws.Range("A" & Rows.Count).End(xlUp).Row
       lcol = legal_ws.Cells(1, legal_ws.Columns.Count).End(xlToLeft).Column
       lrow2 = cib_ws.Range("A" & Rows.Count).End(xlUp).Row
       lcol2 = cib_ws.Cells(1, cib_ws.Columns.Count).End(xlToLeft).Column
       lrow3 = comp_ws.Range("A" & Rows.Count).End(xlUp).Row

            Set legal_rng = legal_ws.Range(legal_ws.Cells(2, 1), legal_ws.Cells(lrow, lcol))
            Set cib_rng = cib_ws.Range(cib_ws.Cells(2, 1), cib_ws.Cells(lrow2, lcol2))

    legal_rng.Copy Destination:=comp_ws.Range("A2")

    With cib_ws.Range("A1" & lcol2)
                .AutoFilter
                .AutoFilter Field:=61, Criteria1:="Regional Presidents"
    End With

        With cib_rng

                .SpecialCells(xlCellTypeVisible).Copy Destination:=comp_ws.Range(lrow3 + 1)

                End With
.SpecialCells(xlCellTypeVisible).Copy Destination:=comp_ws.Range(lrow3 + 1) 

is the line that gets the method range of object error

/r/vba Thread Parent