showing error at Selection.Delete Shift:=xlToLeft

[anilg0001]

Sub original1()
Dim k As Integer
Dim i As Integer
For k = 3 To 20
If Range("Q" & k).Value <> "" Then

MsgBox ActiveCell.Row

ActiveCell.Offset(1, 0).EntireRow.Insert
With ActiveCell
For i = 1 To 10
    .Resize(1, 4).Copy Destination:=Worksheets("Master File").Range("M" & .Row + 1)
    .Resize(1, 4).Select
    '.Resize(1, 4).Value = ""
    'ActiveCell.Value = ""
    '.Resize(1, 4).Delete Shift:=xlToLeft
    Selection.Copy
    Selection.Delete shift:=xlToLeft
    If .Value = "" Then
    End If
Next i
i = i + 1
End With
Else
Exit Sub
End If
Next k
k = k + 1

error shows object required
any one help?