Hide Specific rows.

  • Thread starter Thread starter Steve
  • Start date Start date
S

Steve

I am looking for a function of some sort look for
specific words in a cell. If an instance occurs, i would
like it to hide the entire row. Can anyone help?

Thanks for your time and effort,
Steve
 
something like
for each c in selection
if c="myword" then c.entirerow.hidden=true
next
 
i can't quite get this to work. where do I enter it? Is
there any way to addit to an existing macro?
 
Tell us specifics (send a pasted copy (not workbook) of your macro and what
you want. What I gave was a general way to do this. This might be a bit more
specific.

Sub hideword()
For Each c In Selection
If UCase(c) = "GARAGE" Then c.EntireRow.Hidden = True
Next
End Sub
 
If a manual solution is acceptable: Set up an AutoFilter, select "Custom",
select "Does not contain" and type in your criteria (including wildcards).

If you want to automate it, try recording a macro while doing the above.
 
The problem with the autofilter technique is that i need
to sort the worksheet based on a different column. So i
will try and expplain in more detail:

If the word "none" occurs in column B, I want that row to
be hidden. I already have a formatting macro in place....I
would liketo add the hiding of the rows to that macro. I
making the spreadsheet for someone who know even less than
I do about excel. So i would like them to have to do as
litle to sheet as possible.

I am unable to attatch the worksheet because of my
companies internet policies. Sorry.

I hope this clears it up.

Thanks Again,
Steve
 
Here is the current macro i have running.


Sub FORMAT_FCR()
'
' FORMAT_FCR Macro
' Macro recorded 6/8/2004 by Administrator
'

'
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("A18").Select
Selection.Copy
Range("B17").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G18").Select
Application.CutCopyMode = False
Selection.Copy
Range("G17").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Range("I17").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("18:18").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A19").Select
Selection.Copy
Range("B18").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G19").Select
Application.CutCopyMode = False
Selection.Copy
Range("G18").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I19").Select
Application.CutCopyMode = False
Selection.Copy
Range("I18").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("19:19").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A20").Select
Selection.Copy
Range("B19").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G20").Select
Application.CutCopyMode = False
Selection.Copy
Range("G19").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I20").Select
Application.CutCopyMode = False
Selection.Copy
Range("I19").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("20:20").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A21").Select
Selection.Copy
Range("B20").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G21").Select
Application.CutCopyMode = False
Selection.Copy
Range("G20").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I21").Select
Application.CutCopyMode = False
Selection.Copy
Range("I20").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("21:21").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A22").Select
Selection.Copy
Range("B21").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G22").Select
Application.CutCopyMode = False
Selection.Copy
Range("G21").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I22").Select
Application.CutCopyMode = False
Selection.Copy
Range("I21").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("22:22").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A23").Select
Selection.Copy
Range("B22").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G23").Select
Application.CutCopyMode = False
Selection.Copy
Range("G22").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I23").Select
Application.CutCopyMode = False
Selection.Copy
Range("I22").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("23:23").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A24").Select
Selection.Copy
Range("B23").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G24").Select
Application.CutCopyMode = False
Selection.Copy
Range("G23").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I24").Select
Application.CutCopyMode = False
Selection.Copy
Range("I23").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G24").Select
Application.CutCopyMode = False
Selection.Copy
Range("G23").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("24:24").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A25").Select
Selection.Copy
Range("B24").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G25").Select
Application.CutCopyMode = False
Selection.Copy
Range("G24").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I25").Select
Application.CutCopyMode = False
Selection.Copy
Range("I24").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("25:25").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A26").Select
Selection.Copy
Range("B25").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G26").Select
Application.CutCopyMode = False
Selection.Copy
Range("G25").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I26").Select
Application.CutCopyMode = False
Selection.Copy
Range("I25").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G26").Select
Application.CutCopyMode = False
Selection.Copy
Range("G25").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("26:26").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A27").Select
Selection.Copy
Range("B26").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G27").Select
Application.CutCopyMode = False
Selection.Copy
Range("G26").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I27").Select
Application.CutCopyMode = False
Selection.Copy
Range("I26").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("27:27").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A28").Select
Selection.Copy
Range("B27").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G28").Select
Application.CutCopyMode = False
Selection.Copy
Range("G27").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I28").Select
Application.CutCopyMode = False
Selection.Copy
Range("I27").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("28:28").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A29").Select
Selection.Copy
Range("B28").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G29").Select
Application.CutCopyMode = False
Selection.Copy
Range("G28").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I29").Select
Application.CutCopyMode = False
Selection.Copy
Range("I28").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("29:29").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A30").Select
Selection.Copy
Range("B29").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G30").Select
Application.CutCopyMode = False
Selection.Copy
Range("G29").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I30").Select
Application.CutCopyMode = False
Selection.Copy
Range("I29").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("30:30").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A31").Select
Selection.Copy
Range("B30").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G31").Select
Application.CutCopyMode = False
Selection.Copy
Range("G30").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I31").Select
Application.CutCopyMode = False
Selection.Copy
Range("I30").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("31:31").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A32").Select
Selection.Copy
Range("B31").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G32").Select
Application.CutCopyMode = False
Selection.Copy
Range("G31").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I32").Select
Application.CutCopyMode = False
Selection.Copy
Range("I31").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("32:32").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=-2
Range("A33").Select
Selection.Copy
Range("B32").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G33").Select
Application.CutCopyMode = False
Selection.Copy
Range("G32").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I33").Select
Application.CutCopyMode = False
Selection.Copy
Range("I32").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("A33").Select
Application.CutCopyMode = False
Selection.Copy
Range("B32").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("33:33").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A34").Select
Selection.Copy
Range("B33").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G34").Select
Application.CutCopyMode = False
Selection.Copy
Range("G33").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I34").Select
Application.CutCopyMode = False
Selection.Copy
Range("I33").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("34:34").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A35").Select
Selection.Copy
Range("B34").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G35").Select
Application.CutCopyMode = False
Selection.Copy
Range("G34").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I35").Select
Application.CutCopyMode = False
Selection.Copy
Range("I34").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("35:35").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A36").Select
Selection.Cut
Range("A36").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G36").Select
Application.CutCopyMode = False
Selection.Copy
Range("G35").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I36").Select
Application.CutCopyMode = False
Selection.Copy
Range("I35").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("36:36").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A37").Select
Selection.Copy
Range("B36").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G37").Select
Application.CutCopyMode = False
Selection.Copy
Range("G36").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I37").Select
Application.CutCopyMode = False
Selection.Copy
Range("I36").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("37:37").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A38").Select
Selection.Copy
Range("B37").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G38").Select
Application.CutCopyMode = False
Selection.Copy
Range("G37").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I38").Select
Application.CutCopyMode = False
Selection.Copy
Range("I37").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("38:38").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A39").Select
Selection.Copy
Range("B38").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G39").Select
Application.CutCopyMode = False
Selection.Copy
Range("G38").Select
Application.CutCopyMode = False
Selection.Copy
Range("G39").Select
Application.CutCopyMode = False
Selection.Copy
Range("G38").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I39").Select
Application.CutCopyMode = False
Selection.Copy
Range("I38").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("39:39").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A40").Select
Selection.Copy
Range("B39").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G40").Select
Application.CutCopyMode = False
Selection.Copy
Range("G39").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I40").Select
Application.CutCopyMode = False
Selection.Copy
Range("I39").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("40:40").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A41").Select
Selection.Copy
Range("B40").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G41").Select
Application.CutCopyMode = False
Selection.Copy
Range("G40").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I41").Select
Application.CutCopyMode = False
Selection.Copy
Range("I40").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("41:41").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A42").Select
Selection.Copy
Range("B41").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G42").Select
Application.CutCopyMode = False
Selection.Copy
Range("G41").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I42").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("I41").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("42:42").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A43").Select
Selection.Copy
Range("B42").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G43").Select
Application.CutCopyMode = False
Selection.Copy
Range("G42").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I43").Select
Application.CutCopyMode = False
Selection.Copy
Range("I42").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("43:43").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A44").Select
Selection.Copy
Range("B43").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G44").Select
Application.CutCopyMode = False
Selection.Copy
Range("G43").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I44").Select
Application.CutCopyMode = False
Selection.Copy
Range("I43").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("44:44").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A45").Select
Selection.Copy
Range("B44").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G45").Select
Application.CutCopyMode = False
Selection.Copy
Range("G44").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I45").Select
Application.CutCopyMode = False
Selection.Copy
Range("I44").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("45:45").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A46").Select
Selection.Copy
Range("B45").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G46").Select
Application.CutCopyMode = False
Selection.Copy
Range("G45").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I46").Select
Application.CutCopyMode = False
Selection.Copy
Range("I45").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("46:46").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A47").Select
Selection.Copy
Range("B46").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G47").Select
Application.CutCopyMode = False
Selection.Copy
Range("G46").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I47").Select
Application.CutCopyMode = False
Selection.Copy
Range("I46").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("47:47").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A48").Select
Selection.Copy
Range("B47").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G48").Select
Application.CutCopyMode = False
Selection.Copy
Range("G47").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I48").Select
Application.CutCopyMode = False
Selection.Copy
Range("I47").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("48:48").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A49").Select
Selection.Copy
Range("B48").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G49").Select
Application.CutCopyMode = False
Selection.Copy
Range("G48").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I49").Select
Application.CutCopyMode = False
Selection.Copy
Range("I48").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("49:49").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A50").Select
Selection.Copy
Range("B49").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G50").Select
Application.CutCopyMode = False
Selection.Copy
Range("G49").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I50").Select
Application.CutCopyMode = False
Selection.Copy
Range("I49").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("50:50").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A51").Select
Selection.Copy
Range("B50").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G51").Select
Application.CutCopyMode = False
Selection.Copy
Range("G50").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I51").Select
Application.CutCopyMode = False
Selection.Copy
Range("I50").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("51:51").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A52").Select
Selection.Copy
Range("B51").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G52").Select
Application.CutCopyMode = False
Selection.Copy
Range("G51").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I52").Select
Application.CutCopyMode = False
Selection.Copy
Range("I51").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("52:52").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A53").Select
Selection.Copy
Range("B52").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G53").Select
Application.CutCopyMode = False
Selection.Copy
Range("G52").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I53").Select
Application.CutCopyMode = False
Selection.Copy
Range("I52").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("53:53").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A54").Select
Selection.Copy
Range("B53").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G54").Select
Application.CutCopyMode = False
Selection.Copy
Range("G53").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I54").Select
Application.CutCopyMode = False
Selection.Copy
Range("I53").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("54:54").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A55").Select
Selection.Copy
Range("B54").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G55").Select
Application.CutCopyMode = False
Selection.Copy
Range("G54").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I55").Select
Application.CutCopyMode = False
Selection.Copy
Range("I54").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("55:55").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A56").Select
Selection.Copy
Range("B55").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G56").Select
Application.CutCopyMode = False
Selection.Copy
Range("G55").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I56").Select
Application.CutCopyMode = False
Selection.Copy
Range("I55").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("56:56").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A57").Select
Selection.Copy
Range("B56").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G57").Select
Application.CutCopyMode = False
Selection.Copy
Range("G56").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I57").Select
Application.CutCopyMode = False
Selection.Copy
Range("I56").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("57:57").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A58").Select
Selection.Copy
Range("B57").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G58").Select
Application.CutCopyMode = False
Selection.Copy
Range("G57").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I58").Select
Application.CutCopyMode = False
Selection.Copy
Range("I57").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("58:58").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A59").Select
Selection.Copy
Range("B58").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G59").Select
Application.CutCopyMode = False
Selection.Copy
Range("G58").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I59").Select
Application.CutCopyMode = False
Selection.Copy
Range("I58").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("59:59").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A60").Select
Selection.Copy
Range("B59").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G60").Select
Application.CutCopyMode = False
Selection.Copy
Range("G59").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I60").Select
Application.CutCopyMode = False
Selection.Copy
Range("I59").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("60:60").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A61").Select
Selection.Copy
Range("B60").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G61").Select
Application.CutCopyMode = False
Selection.Copy
Range("G60").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I61").Select
Application.CutCopyMode = False
Selection.Copy
Range("I60").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("61:61").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A62").Select
Selection.Copy
Range("B61").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G62").Select
Application.CutCopyMode = False
Selection.Copy
Range("G61").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I62").Select
Application.CutCopyMode = False
Selection.Copy
Range("I61").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("62:62").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A63").Select
Selection.Copy
Range("B62").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G63").Select
Application.CutCopyMode = False
Selection.Copy
Range("G62").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I63").Select
Application.CutCopyMode = False
Selection.Copy
Range("I62").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("63:63").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A64").Select
Selection.Copy
Range("B63").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G64").Select
Application.CutCopyMode = False
Selection.Copy
Range("G63").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I64").Select
Application.CutCopyMode = False
Selection.Copy
Range("I63").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("64:64").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A65").Select
Selection.Copy
Range("B64").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G65").Select
Application.CutCopyMode = False
Selection.Copy
Range("G64").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I65").Select
Application.CutCopyMode = False
Selection.Copy
Range("I64").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("65:65").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A66").Select
Selection.Copy
Range("B65").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G66").Select
Application.CutCopyMode = False
Selection.Copy
Range("G65").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I66").Select
Application.CutCopyMode = False
Selection.Copy
Range("I65").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("66:66").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A67").Select
Selection.Copy
Range("B66").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G67").Select
Application.CutCopyMode = False
Selection.Copy
Range("G66").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I67").Select
Application.CutCopyMode = False
Selection.Copy
Range("I66").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("67:67").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A68").Select
Selection.Copy
Range("B67").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G68").Select
Application.CutCopyMode = False
Selection.Copy
Range("G67").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I68").Select
Application.CutCopyMode = False
Selection.Copy
Range("I67").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("68:68").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A69").Select
Selection.Copy
Range("B68").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G69").Select
Application.CutCopyMode = False
Selection.Copy
Range("G68").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I69").Select
Application.CutCopyMode = False
Selection.Copy
Range("I68").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("69:69").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A70").Select
Selection.Copy
Range("B69").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G70").Select
Application.CutCopyMode = False
Selection.Copy
Range("G69").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I70").Select
Application.CutCopyMode = False
Selection.Copy
Range("I69").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("70:70").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A71").Select
Selection.Copy
Range("B70").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("G71").Select
Application.CutCopyMode = False
Selection.Copy
Range("G70").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Range("I71").Select
Application.CutCopyMode = False
Selection.Copy
Range("I70").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Rows("71:71").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A64").Select
ActiveWindow.SmallScroll Down:=2
ActiveWindow.SmallScroll ToRight:=11
Columns("M:M").Select
Range("M3").Activate
Selection.Delete Shift:=xlToLeft
ActiveWindow.LargeScroll ToRight:=-2
Range("C10:D12").Select
Selection.ClearContents
Range("A14").Select
Selection.Cut Destination:=Range("A11")
Range("A10:C11").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A15:A16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("B15:B16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Type"
Range("C15:C16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("D15:D16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("E15:E16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("F15:F16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("G15:G16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("H15:H16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("I15:I16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("J15:J16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveWindow.SmallScroll ToRight:=2
Range("K15:K16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveWindow.SmallScroll ToRight:=7
Range("L15:L16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveWindow.LargeScroll ToRight:=-2
Range("A15:L16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle =
xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle =
xlNone
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
End With
Cells.Select
Range("A3").Activate
Cells.EntireColumn.AutoFit
Range("K17:L358").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
With Selection.Font
.Name = "MS Sans Serif"
.Size = 8.5
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Columns("K:K").Select
Range("K2").Activate
ActiveWindow.SmallScroll ToRight:=4
Range("K:K,L:L").Select
Range("L2").Activate
Selection.ColumnWidth = 30
ActiveWindow.LargeScroll ToRight:=-1
Cells.Select
Range("A2").Activate
Cells.EntireRow.AutoFit
Range("A15:L16").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "MS Sans Serif"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("A:J").Select
Range("A2").Activate
Columns("A:J").EntireColumn.AutoFit
Range("A17:J399").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Columns("C:C").Select
Range("C2").Activate
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Range("A10:D11").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A10").Select
With Selection.Font
.Name = "MS Sans Serif"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A11").Select
With Selection.Font
.Name = "MS Sans Serif"
.Size = 13.5
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("F10").Select
ActiveWindow.SmallScroll ToRight:=4
Range("K15:K16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Repo ETD/ETA"
Range("J15:J16").Select
Selection.Copy
Range("H15:H16").Select
Application.CutCopyMode = False
Selection.Copy
Range("K15:K16").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("K:K").EntireColumn.AutoFit
Columns("K:K").ColumnWidth = 10.86
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Columns("K:K").ColumnWidth = 11.57
Range("L15:L16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("K15:K16").Select
Selection.Copy
Range("L15:L16").Select
Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Dept'd"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("L17").Select
Columns("L:L").EntireColumn.AutoFit
Columns("L:L").ColumnWidth = 7.57
Columns("L:L").ColumnWidth = 8.71
Range("L15:L16").Select
ActiveCell.FormulaR1C1 = "Delay"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("K15:K16").Select
ActiveCell.FormulaR1C1 = "Briefed"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("I:J").Select
Range("J1").Activate
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Columns("M:M").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=-3
Range("I15:I16").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "MEL's"
Range("J15:J16").Select
ActiveCell.FormulaR1C1 = "WX"
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Range("K15:K16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("K15:K16").Select
ActiveCell.FormulaR1C1 = "Back-Up"
Range("L2").Select
Columns("K:K").EntireColumn.AutoFit
Columns("K:K").ColumnWidth = 16
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Range("I15:I16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Contract"
Range("I14").Select
Columns("I:I").ColumnWidth = 13.14
Columns("I:I").ColumnWidth = 14.14
Range("J17:K329").Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("J282").Select
ActiveWindow.LargeScroll Down:=-1
Range("J247").Select
ActiveWindow.LargeScroll Down:=-1
Range("J212").Select
ActiveWindow.LargeScroll Down:=-1
Range("J177").Select
ActiveWindow.LargeScroll Down:=-1
Range("J142").Select
ActiveWindow.LargeScroll Down:=-1
Range("J107").Select
ActiveWindow.LargeScroll Down:=-1
Range("J72").Select
ActiveWindow.LargeScroll Down:=-1
Range("J46").Select
ActiveWindow.LargeScroll Down:=-1
Range("J27").Select
ActiveWindow.LargeScroll Down:=-1
Range("J5").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.ScrollColumn = 2
Range("B6").Select
ActiveWindow.FreezePanes = False
Range("b17").Select
ActiveWindow.FreezePanes = True
Columns("I:I").Select
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("J15:J16").Select
ActiveWindow.SmallScroll ToRight:=9
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.ScrollRow = 30
ActiveWindow.LargeScroll Down:=-1
Columns("I:I").Select
Selection.Delete Shift:=xlToLeft
Range("A10:D10").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A11:E11").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A8").Select
Range("B15:B16").Select
Selection.AutoFilter
ActiveWindow.LargeScroll ToRight:=-1
Selection.AutoFilter Field:=2, Criteria1:="=*C*",
Operator:=xlAnd
Columns("A:A").ColumnWidth = 7.71
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Columns("H:H").EntireColumn.AutoFit
ActiveWindow.SmallScroll ToRight:=8
Columns("L:L").EntireColumn.AutoFit
Columns("M:M").EntireColumn.AutoFit
ActiveWindow.LargeScroll ToRight:=-1
Range("A14").Select
End Sub
 
Don, be careful for what you ask cuz you just might get it. That is a long
bit of code. Let's shorten it a bit

Sub FORMAT_FCR()

Columns("B:B").Insert Shift:=xlToRight
Range("A18").Copy Range("B17").PasteSpecial Paste:=xlAll
Range("G18").Copy Range("G17").PasteSpecial Paste:=xlAll,
Range("I18").Copy Range("I17").PasteSpecial Paste:=xlAll
Rows("18:18").Delete Shift:=xlUp

'etc========== till you get to

Range("C10:D12").ClearContents
Range("A14").Cut Destination:=Range("A11")
with Range("A10:C11") 'NO selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With


with Range("A15:A16,c15:c16,d15:d16")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With

'etc
you get the idea.
 
Back
Top