Paste Special in a macro

C

CMAC

Hi,
while recording a macro i've selected multiple sections of data and then
divided a value to all of the data selected by copying the cell with the
value in it and selecting paste special, checking off divide, and values. It
seems to work on all sections when i'm recording the macro, however, when i
run the macro on another sheet it only seems to work on the first section of
data i selected. would anyone know why this is?
Many thanks in advance
 
C

CMAC

not sure what is or is not useful to you. the action i'm refering to is
about 3/4's the way down

Columns("J:J").Select
Selection.Cut
Columns("G:G").Select
Selection.Insert Shift:=xlToRight
Columns("J:J").Select
Selection.Cut
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("K:L").Select
Selection.Cut
Columns("U:U").Select
Selection.Insert Shift:=xlToRight
Columns("R:R").Select
Selection.Cut
Columns("K:K").Select
Selection.Insert Shift:=xlToRight
Columns("Q:Q").Select
Selection.Cut
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Columns("P:p").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
Columns("M:M").Select
Selection.Cut
Columns("P:p").Select
Selection.Insert Shift:=xlToRight
Columns("Q:Q").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
Columns("R:R").Select
Selection.Cut
Columns("O:O").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("X:X").Select
Selection.Cut
Columns("S:S").Select
Selection.Insert Shift:=xlToRight
Columns("Y:Y").Select
Selection.Cut
Columns("S:S").Select
Selection.Insert Shift:=xlToRight
Columns("X:X").Select
Selection.Cut
Columns("W:W").Select
Selection.Insert Shift:=xlToRight
Range("W8").Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
ActiveWindow.SmallScroll ToRight:=4
ActiveWindow.ScrollColumn = 1
Range("H8").Select
Selection.EntireColumn.Insert
Range("J8").Select
Selection.EntireColumn.Insert
Range("L8").Select
Selection.EntireColumn.Insert
Range("N8").Select
Selection.EntireColumn.Insert
Range("P8").Select
Selection.EntireColumn.Insert
Range("R8").Select
Selection.EntireColumn.Insert
Range("T8").Select
Selection.EntireColumn.Insert
Range("V8").Select
Selection.EntireColumn.Insert
Range("X8").Select
Selection.EntireColumn.Insert
Range("Z8").Select
Selection.EntireColumn.Insert
Range("AB8").Select
Selection.EntireColumn.Insert
Range("AD8").Select
Selection.EntireColumn.Insert
Range("AF8").Select
Selection.EntireColumn.Insert
Range("AH8").Select
Selection.EntireColumn.Insert
Range("AJ8").Select
Selection.EntireColumn.Insert
Range("AM8").Select
Selection.EntireColumn.Insert
Range("AP8").Select
Selection.EntireColumn.Insert
Range("AR8").Select
Selection.EntireColumn.Insert
Range("AT8").Select
Selection.EntireColumn.Insert
Range("AV8").Select
Selection.EntireColumn.Insert
Selection.End(xlToLeft).Select
Range("G11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("G11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("I11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("K11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("K11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=9
Range("M11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("M11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("O11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("O11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("Q11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("Q11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("S11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("S11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("U11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("U11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=9
Range("W11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("W11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("Y11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("Y11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AA11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AA11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AC11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AC11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AE11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AE11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=10
Range("AG11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AG11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AI11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AI11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AK11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AK11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AO11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AO11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
ActiveWindow.SmallScroll ToRight:=8
Range("AQ11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AQ11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AS11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AS11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AU11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AU11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AW11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("AW11"),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Range("AV8").Select
Selection.End(xlToLeft).Select
Range("H7").Select
ActiveCell.FormulaR1C1 = "10"
Range("H7").Select
Selection.Copy
Range("H11").Select
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11").Select
Range("J11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=6
Range("H11:H15,J11:J15,L11").Select
Range("L11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11").Select
Range("N11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11").Select
Range("P11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11").Select
Range("R11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=4
Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11").Select
Range("T11").Activate
Range(Selection, Selection.End(xlDown)).Select

Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11").Select
Range("V11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=7

Range("H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11").
_
Select
Range("X11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11"). _
Select
Range("Z11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11" _
).Select
Range("AB11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11" _
).Select
Range("AD11").Activate
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll ToRight:=9
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15,AF11" _
).Select
Range("AF11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15,AF11:AF15,AH11" _
).Select
Range("AH11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15,AF11:AF15,AH11:AH15,AJ11" _
).Select
Range("AJ11").Activate
Range(Selection, Selection.End(xlDown)).Select
Range( _

"H11:H15,J11:J15,L11:L15,N11:N15,P11:p15,R11:R15,T11:T15,V11:V15,X11:X15,Z11:Z15,AB11:AB15,AD11:AD15,AF11:AF15,AH11:AH15,AJ11:AJ15,AL11" _
).Select
Range("AL11").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlDivide,
SkipBlanks:= _
False, Transpose:=False
Range("H8").Select
Application.CutCopyMode = False
Range("H7").Select
Selection.ClearContents
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
Range("F10").Select
ActiveCell.FormulaR1C1 = "RTG"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("G10").Select
ActiveCell.FormulaR1C1 = "(000's)"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("F10:G10").Select
Selection.Copy
Range("F10:AW10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlToRight).Select
Selection.End(xlToRight).Select
Selection.End(xlToLeft).Select
Range("AL9").Select
ActiveCell.FormulaR1C1 = "Mopes"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "MS Sans Serif"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("AK10").Select
Selection.End(xlToLeft).Select
Range("F11").Select
ActiveWindow.SmallScroll Down:=-18
End Sub
Sub NielsenSELALDEM()
'
' NielsenSELALDEM Macro
' Macro recorded 12/3/2004 by Christopher McLennan
'

'
Range("I14").Select
ActiveWindow.SmallScroll ToRight:=7
Columns("I:I").Select
Range("I5").Activate
Selection.Cut
Columns("K:K").Select
Range("K5").Activate
Selection.Insert Shift:=xlToRight
Columns("K:K").Select
Range("K5").Activate
Selection.Cut
Columns("M:M").Select
Range("M5").Activate
Selection.Insert Shift:=xlToRight
Columns("M:M").Select
Range("M5").Activate
Selection.Cut
Columns("O:O").Select
Range("O5").Activate
Selection.Insert Shift:=xlToRight
Columns("O:O").Select
Range("O5").Activate
Selection.Cut
Columns("Q:Q").Select
Range("Q5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("Q:Q").Select
Range("Q5").Activate
Selection.Cut
Columns("S:S").Select
Range("S5").Activate
Selection.Insert Shift:=xlToRight
Columns("S:S").Select
Range("S5").Activate
Selection.Cut
Columns("U:U").Select
Range("U5").Activate
Selection.Insert Shift:=xlToRight
Columns("U:U").Select
Range("U5").Activate
Selection.Cut
Columns("W:W").Select
Range("W5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("W:W").Select
Range("W5").Activate
Selection.Cut
Columns("Y:Y").Select
Range("Y5").Activate
Selection.Insert Shift:=xlToRight
Columns("Y:Y").Select
Range("Y5").Activate
Selection.Cut
Columns("AA:AA").Select
Range("AA5").Activate
Selection.Insert Shift:=xlToRight
Columns("AA:AA").Select
Range("AA5").Activate
Selection.Cut
Columns("AC:AC").Select
Range("AC5").Activate
Selection.Insert Shift:=xlToRight
Columns("AC:AC").Select
Range("AC5").Activate
Selection.Cut
Columns("AE:AE").Select
Range("AE5").Activate
Selection.Insert Shift:=xlToRight
Columns("AE:AE").Select
Range("AE5").Activate
Selection.Cut
Columns("AG:AG").Select
Range("AG5").Activate
Selection.Insert Shift:=xlToRight
Columns("AG:AG").Select
Range("AG5").Activate
Selection.Cut
Columns("AI:AI").Select
Range("AI5").Activate
Application.CutCopyMode = False
Selection.Cut
Columns("AG:AG").Select
Range("AG5").Activate
Application.CutCopyMode = False
Selection.Cut
Columns("AI:AI").Select
Range("AI5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=7
Columns("AI:AI").Select
Range("AI5").Activate
Selection.Cut
Columns("AK:AK").Select
Range("AK5").Activate
Selection.Insert Shift:=xlToRight
Columns("AK:AK").Select
Range("AK5").Activate
Selection.Cut
Columns("AM:AM").Select
Range("AM5").Activate
Selection.Insert Shift:=xlToRight
Columns("AM:AM").Select
Range("AM5").Activate
Selection.Cut
Columns("AO:AO").Select
Range("AO5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=4
Columns("AO:AO").Select
Range("AO5").Activate
Selection.Cut
Columns("AQ:AQ").Select
Range("AQ5").Activate
Selection.Insert Shift:=xlToRight
Columns("AQ:AQ").Select
Range("AQ5").Activate
Selection.Cut
Columns("AS:AS").Select
Range("AS5").Activate
Selection.Insert Shift:=xlToRight
Columns("AS:AS").Select
Range("AS5").Activate
Selection.Cut
Columns("AU:AU").Select
Range("AU5").Activate
Selection.Insert Shift:=xlToRight
Columns("AU:AU").Select
Range("AU5").Activate
Selection.Cut
Columns("AW:AW").Select
Range("AW5").Activate
Selection.Insert Shift:=xlToRight
Columns("AW:AW").Select
Range("AW5").Activate
Selection.Cut
Columns("AY:AY").Select
Range("AY5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=6
Columns("AY:AY").Select
Range("AY5").Activate
Selection.Cut
Columns("BA:BA").Select
Range("BA5").Activate
Selection.Insert Shift:=xlToRight
Columns("BA:BA").Select
Range("BA5").Activate
Selection.Cut
Columns("BC:BC").Select
Range("BC5").Activate
Selection.Insert Shift:=xlToRight
Columns("BC:BC").Select
Range("BC5").Activate
Selection.Cut
Columns("BE:BE").Select
Range("BE5").Activate
Selection.Insert Shift:=xlToRight
ActiveWindow.SmallScroll ToRight:=4
Columns("BE:BE").Select
Range("BE5").Activate
Selection.Cut
Columns("BG:BG").Select
Range("BG5").Activate
Selection.Insert Shift:=xlToRight
Range("F11").Select
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Section and Page numbering 0
Getting Radio Buttons to work, that are inserted via AutoText 0
Improving Macro That Keeps First Letter 0
Embed the same Excel multiple times 0
Paste options button disappears 0
Visio shape text disappears upon copy paste 1
how to copy and paste value from one sheet to another 4
Linking data in MS Word into Excel 5

Top