Selection.PasteSpecial

[RedLars]

Hi,

Know very little about vb programming so was hoping for some help.

The below code work alright but only for rows 10-14 - it appears the pastesepcial doesnt work for the reminding 15-26 rows. Can anyone explain to me how Selection.PasteSpecial works?

Sub Run2()
    Range("J10:J26").Select
    Selection.Copy
    Range("K10").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("L10:L26").Select
    Selection.ClearContents
    Range("L10").Select
End Sub

Cheers

[Siddharth Rout]

Hi

Welcome to the Forums

Does this help?

Sub Run2()
    Range("J10:J26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'and so on...
End Sub

Tip: Whenever in doubt create a macro on what you want to do and then amend it as per your requirements

Here is a tutorial by RobDog888 on 'Recording Macros'...
http://vbforums.com/showthread.php?t=402032

Hope this helps...