paste special as an insert ?

[Yogi39]

Range("B2:F20&quot.Select
Range("B20&quot.Activate
Selection.Copy
Range("B22&quot.Select
Selection.Insert



Can I mod the above to PasteSpecial, that is I want to insert the data UNFORMATED !(as the original selection is formated)

 

[ETID]

Range("A1&quot.Select
Selection.Copy
Range("G9&quot.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

 

[ETID]

ooops ...sustitute your cell ranges in the previous example.

 

[Yogi39]

this kinda works.....but still not inserting correctly.
For i = 20 To 2 Step -1
A = Range("a" & i).Value
B = Range("b" & i).Value
C = Range("c" & i).Value
D = Range("d" & i).Value
E = Range("e" & i).Value
Range("A25&quot.Select
Range("A25&quot.Value = A
Range("B25&quot.Value = B
Range("C25&quot.Value = C
Range("D25&quot.Value = D
Range("E25&quot.Value = E
Selection.Insert
Next i