I am working with a phone directory listing. On the ALL sheet is where I
list all listings. I will be adding and deleting listings as time goes on.
I then want to copy from ALL into another worksheet (Last_Title) where I
paste, then I will delete a column and then I need to format the listings to
have gray background every other row. But the range changes. Example I will
add a new listing to the ALL worksheet, and it copies just find to
Last_Title, but the formating doesn't continue for all the listings, example
if I add a listing to the top of ALL, the Last_Title row will not have the
correct grey or not grey formating. I created this macro, is there a way
that I can PAUSE the macro for user input to select the range or a way that I
can program to find the first blank row and to FORMAT the gray backgound?


Sub Last_Title_Web()
'
' Last_Title_Web Macro
' Last name with Title and formated for the web
'

'
Sheets("LAST_TITLE").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("ALL").Select
Cells.Select
Selection.Copy
Sheets("LAST_TITLE").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Cells.Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$320"), ,
xlYes).Name = _
"Table1"
Range("Table1[#All]").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight1"
Range("Table1[[#Headers],[Last]]").Select
Selection.AutoFilter
End Sub