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

 

[Anthony47]

May I suggest that you explain what you need to do, rather then ask us to decode the video?

 

[wndncg]

May I suggest that you explain what you need to do, rather then ask us to decode the video?

sequence:

1. Selector goes to b6 then shift down (to the last data highlighted)
2. Selector goes to the left side (from the last data highlighted as seen on the video)
3. Selector shift up (to the last data highlighted, purpose is to get into the last data available as seen on the video)
4. Then fills up the entire blank cells with the data on A6 (A6 is just an example to populate the data but the purpose is that, it fills the blank data is on what from the shift up on step 3)
5. Then it shift space (purpose is to highlight all of it, as seen on the video)

 

[Anthony47]

After minutes of headaches, my best translation of what you wrote is:
-working on sheet named "1"
-I have data in column B up to line XX (unknown)
-and I would like in column A to copy the last data available there up to line XX

If that is correct then try

Sub boh()
Dim LastB As Long, LastA As Long
'
Worksheets("1").Select
LastB = Cells(Rows.Count, "B").End(xlUp).Row
LastA = Cells(LastB, "A").End(xlUp).Row
If LastA < LastB Then
    Range(Cells(LastA, "A"), Cells(LastB, "A")).FillDown
End If
End Sub

 

[Siddharth Rout]

There is almost never a need to use .Select/.Activate. You can perform most of the operation without using them by directly working with the objects.

I think this is what you are trying to do after watching the video. (The video link is blocked in my country so had to use vpn to see it.)

I have commented the code so you should not have an issue understanding it. But if you do, then simply ask.

Option Explicit

Sub INSERT_ME3()
    Dim ws As Worksheet
    Dim lRow As Long
    
    '~~> This is your worksheet object
    Set ws = ThisWorkbook.Worksheets("1")

    With ws
        '~~> Insert column
        .Columns(1).Insert Shift:=xlToRight
        
        '~~> Directly assign the value without selecting it
        .Range("A6").Value = .Range("L5").Value
        
        '~~> Find last row in Col B
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row
        
        '~~> Autofill the data of cell A6 in rest of blank cells
        .Range("A6:A" & lRow).Value = .Range("A6").Value
    End With
End Sub

 

[wndncg]

After minutes of headaches, my best translation of what you wrote is:
-working on sheet named "1"
-I have data in column B up to line XX (unknown)
-and I would like in column A to copy the last data available there up to line XX

If that is correct then try

Sub boh()
Dim LastB As Long, LastA As Long
'
Worksheets("1").Select
LastB = Cells(Rows.Count, "B").End(xlUp).Row
LastA = Cells(LastB, "A").End(xlUp).Row
If LastA < LastB Then
    Range(Cells(LastA, "A"), Cells(LastB, "A")).FillDown
End If
End Sub

this works but i does not highlight all cells.

 

[Anthony47]

Then add one extra Instruction:

If LastA < LastB Then
    Range(Cells(LastA, "A"), Cells(LastB, "A")).FillDown
    Range(Cells(LastA, "A"), Cells(LastB, "B")).Select              '<<< ADD THIS LINE
End If

 

[Siddharth Rout]

this works but i does not highlight all cells.

Why would you want to highlight the cells? What is the objective?

 

[wndncg]

Why would you want to highlight the cells? What is the objective?

to copy sir, just fast the productivity

 

[wndncg]

Then add one extra Instruction:

If LastA < LastB Then
    Range(Cells(LastA, "A"), Cells(LastB, "A")).FillDown
    Range(Cells(LastA, "A"), Cells(LastB, "B")).Select              '<<< ADD THIS LINE
End If

like the whole cell from a to the last >>>>>>>>>>>>>>>>> cell