Hi, could someone please help me with this code, i am trying to copy visible cells to another sheet, but the code fails in line .offset
Code:
With shttest
.Range("Data").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range("Criteria")
.Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells (xlCellTypeVisible), _
CopyToRange:=shtRec.Range("A1")
End With