yug
10-07-2014, 11:26 AM
I need to paste the values into a range of cells but i want to skip a column as shown in the below format.
Public Sub Test()
Dim range1 As Range
Range("A1:B1:C1:D1").Value = 5
Set range1 = ActiveWorkbook.Names("DestinationLocation").RefersToRange
Range("A1:B1:C1").Copy
range1.PasteSpecial xlPasteValues
End Sub
I want the output like as shown in the below format.
5
5
5
5
5
5
5
5
Public Sub Test()
Dim range1 As Range
Range("A1:B1:C1:D1").Value = 5
Set range1 = ActiveWorkbook.Names("DestinationLocation").RefersToRange
Range("A1:B1:C1").Copy
range1.PasteSpecial xlPasteValues
End Sub
I want the output like as shown in the below format.
5
5
5
5
5
5
5
5