I have this code and not sure its not selecting the data,
screen shot is attached, not sure as what is the actula problem.
screen shot is attached, not sure as what is the actula problem.
VBA Code:
Sub AutoData()
Dim lRow2 As Long
Dim lColumn2 As Long
lRow2 = Range("A1").End(xlDown).Row
lColumn2 = Range("A1").End(xlToRight).Column
Cells(lRow2, lColumn2).Select
Selection.AutoFilter
Range("A1").Select
ActiveSheet.Range("A1" & lRow2).AutoFilter Field:=1, Criteria1:=Range("AU1").Value
Range("A1:AS" & lRow2).SpecialCells(xlCellTypeVisible).Delete
Selection.AutoFilter
End Sub
[ATTACH type="full"]97901[/ATTACH][ATTACH type="full"]97902[/ATTACH]