Sheets("Basic").Application.Union(Range("B1:B" & LR), Range("N1:N" & LR), Range("AA1:AA" & LR)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("All Core Data").Range("A1")
Sheets("ENHANCEMENTS").Application.Union(Range("B1:B" & LR), Range("N1:T" & LR), Range("AA1:AA" & LR)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("All Core Data").Range("a65356").End(xlUp).Offset(1, 0)
With Worksheets({SourceWorksheet}).UsedRange.Rows
' some stuff
.AdvancedFilter xlFilterInPlace, {CriteriaRange}
' some stuff
With .Item("2:" & .Count).Columns
Union(.Item(2), .Item(14),.Item(27)).Copy {DestinationRange}
End With
' some stuff
End With