Hi all, does anyone have any tips for performing the task below any smarter?
[VBA]
Sub Split_Reg_OT()
Dim Rrow As Integer
Dim lastrow As Long
lastrow = Range("A65536").End(xlUp).Row
For Rrow = lastrow + 1 To 3 Step -1
With Rows(Rrow)
.Insert Shift:=xlDown
Range("A" & Rrow).Offset(-1, 0).Copy Destination:=Range("A" & Rrow)
Range("A" & Rrow).Offset(-1, 1).Copy Destination:=Range("B" & Rrow)
Range("A" & Rrow).Offset(-1, 3).Copy Destination:=Range("D" & Rrow)
Range("A" & Rrow).Offset(-1, 3).ClearContents
End With
Next Rrow
Application.CutCopyMode = False
End Sub
[/VBA]