keesberbee wrote:
Dear Franz,
Thanks for your reply. Hereby i attach the macro. As the macro shows
it includes alot of copy and paste codes. I suggest that experienced
VBA users know better and faster ways to execute this task.


+-------------------------------------------------------------------+
Filename: Macro.doc |
Download: http://www.excelforum.com/attachment.php?postid=4973 |
+-------------------------------------------------------------------+

Hi,

Here is the modified macro:

Sub MoveData()
'
'
'
'
' Keyboard Shortcut: Ctrl+k
'
Dim lastrow As Long, newlr As Long

lastrow = Range("A65536").End(xlUp).Row


Range("C2:C" & lastrow).Copy Range("B" & lastrow).Offset(1, 0)
Range("C2:C" & lastrow).Clear
Range("D2:D" & lastrow).Copy Range("B" & 2 * lastrow)
Range("D2:D" & lastrow).Clear
Range("A2:A" & lastrow).Copy Range("A" & lastrow).Offset(1, 0)
Range("A2:A" & lastrow).Copy Range("A" & 2 * lastrow)
Application.CutCopyMode = False
Columns("A:A").Insert Shift:=xlToRight
Range("C1").Copy Range("A2:A" & lastrow)
Range("C1").Clear
Range("D1").Copy Range("A" & lastrow + 1 & ":A" & 2 * lastrow - 1)
Range("D1").Clear
Range("E1").Copy Range("A" & 2 * lastrow & ":A" & 3 * lastrow - 2)
Range("E1").Clear
Range("A1").Value = "Month"
Range("C1").Value = "Rev"
With Range("A1:C1")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Range("A1").Select

End Sub




--
Hope I helped you.

Thanks in advance for your feedback.

Ciao

Franz Verga from Italy