Clean up code and Data validation issue - Any help is appreciated!

[dstepan]

Hello. I was just given this workbook to add some formulas which involves copying and pasting as valuee, and setting up Data validation for 3 symbols.

See code. I seem to be having a problem with this code. It is copying the wrong columns. my code is showing the wrong row #'s because I added additional lines for reserve.

Also, I tried to set up Data validation to pick from the 3 status signs at the bottom of the page. It works, except instead of getting the wingding shown I get the related alpabet or number.

Any help to clean up this code and get the Data Validation would be greatly appreciated.

I must complete this by end of day - 5:30 pm.

Thanks to all who attempt this.

Sub Monthly_NOs_Update()'
' Monthly_NOs_Update Macro
' Column F-ColumnD Column G-ColumnC
'
' Keyboard Shortcut: Ctrl+m
'
    Columns("C:G").Select
    Selection.Copy
    Range("j10:n10").Select
    ActiveSheet.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   ActiveCell.Formula "m10" = _
        "=IF(OR(K10=0,m10=0,m10=""misc.""),m10,m10-k10)"
    Range("G10").Select
    ActiveCell.Formula "n10" = "=IF(OR(j10=0,n10=0),n10,n10-j10)"
    Range("F10:G10").Select
    Selection.Copy
    Range("F14:F16").Select
    ActiveSheet.Paste
    Range("F18:F20").Select
    ActiveSheet.Paste
    Range("F22:F27").Select
    ActiveSheet.Paste
    Range("F29:F31").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Range("F32:F33").Select
    ActiveSheet.Paste
    Range("E32:E33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F32:G33").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("C10:G33").Select
    Range("G33").Activate
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-27
    Range("C10").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Columns("J:O").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub

Excel 2007
	A	B	C	D	E	F	G	H	I
1	xxx
2	2016-2017 WORKPLAN ACTIVITIES
3
4	xxx
5	February 2016
6	2016 Measures		2016 Expense	Completed this Month	Turn Away	2016 Target	$/Bal YTD	Challenges - Action Plan	Status
7	C1 - ES	Activity for month
8	xxx	xxx	133,080	237		238	133,081	xxx
12	xxx	xxx	4,649	5		misc.	4,650	xxx
13	xxx	xxx	6,387	1		misc.	6,388	xxx
14	xxx	xxx				185	-	xxx
17	C2 - CM	Activity for month
18	xxx	xxx	263	113		114	264	xxx
19	xxx	xxx	163	63		64	164	xxx
20	xxx	xxx	1	1		-	-	xxx
23	C3 - FLCL	Activity for month
24	xxx	xxx	22	2		3	22	xxx
28	xxx	xxx	97	97		98	98	xxx
29	xxx	xxx	12	82		83	13	xxx
32	C4 - E&S	Activity for the Month
33	xxx	xxx	5,145	43		44	5,146	xxx
34	xxx	xxx
35	xxx	xxx
38	C5 - HW	Activity for the Month	27	27		-	28	xxx
41	C6 - EP	Activity for the Month	2	3		-	-	xxx
45	C7 - H	Activity for the Month		609				xxx
49	C8 - WC	Activity for the Month					80,030	xxx
53	C9 - PI	Activity for the Month		859				xxx
67
68			Not on Target	i
69			Progress	4
70			Succeeding	J
Strategic Initiatives