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