Remove Selection

[Haree]

Hi, I have a code which does the work which i want perfectly. But after the code runs it selects a certain range. Can someone please guide me so that nothing is selected. Sorry if its very elementary.

Sub transfer()
'Transfer modified and aligned data to Daily Sheet
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim Range1 As Range
Dim lr As Long

Set ws = ThisWorkbook.Worksheets("Daily Extract")
lr = Range("A" & Rows.Count).End(xlUp).Row
Set Range1 = ws.Range("A1:K" & lr)
    With ws
        With Range1
                .AutoFilter 3, "="
                    lr = Range("A" & Rows.Count).End(xlUp).Row
                    If lr > 1 Then
                    Range("A2:A" & lr).Select
                    Selection.Delete Shift:=xlUp
                    End If
                .AutoFilter
        End With
    End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Regards
Haree

 

[mohadin]

Hi
Replace

 Range("A2:A" & lr).Select
                    Selection.Delete Shift:=xlUp

With

 Range("A2:A" & lr).Delete Shift:=xlUp

 

[Haree]

Thank you @mohadin . It worked.

 

[mohadin]

You're very welcome
And thank you for the feedback
Be happy and safe