how to make this less in proper code

[wndncg]

Sub INSERT_ME3()
Worksheets("1").Activate
Application.Wait (Now + TimeValue("0:00:01"))
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
Range("A6").Value = Worksheets("1").Range("L5")
Application.Wait (Now + TimeValue("0:00:01"))
Range("B6").Select
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^+{DOWN}")
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("{LEFT}")
Application.SendKeys ("^{DOWN}")
Application.SendKeys ("+{SPACE}")
End Sub

---
see video how it works (doesnt work atm because i need help)

DropMeFiles – free one-click file sharing service

Share your pictures, send large videos, exchange music or transfer big files. No registration required. Unlimited upload/download speed.

dropmefiles.com

 

[Siddharth Rout]

to copy sir, just fast the productivity

If you want to copy the range via code then you do not need to select it. You can directly copy it.

.Range("A6:A" & lRow).Copy

If you still want to select the range then add one more line to the code

 .Range("A6:A" & lRow).Select

 

[Anthony47]

If you still need a solution, then MODIFY the ADDED line as follows:

    Range(Cells(LastA, "A"), Cells(LastB, "B")).EntireRow.Select              '<<< MODIFIED