Copy and Paste Row not working when filtered

[Dave8899]

Hi I have the below code(below) that works off a button, to copy an entire row it works fine, however for some reason When the sheet is filtered, it just inserts a blank line, any ideas?

Sub Copy_paste()


Dim MyPassword As String
    MyPassword = "Yes"
    If InputBox("Please enter password to continue.", "Enter Password") <> MyPassword Then
        Exit Sub
        End If


 ActiveSheet.Unprotect Password:="1234"
  
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert


 ActiveSheet.Protect Password:="1234", AllowFiltering:=True, AllowFormattingColumns:=True, Contents:=True, DrawingObjects:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True
 
End Sub

 

[Peter_SSs]

The code works for me. The only time it inserts a blank row is if the active cell is in a blank row & in that case inserting a blank row is what I would expect.
We don't know what your data is like, how it is filtered of where you active cell might be so obviously we cannot replicate your particular circumstances.

 

[Dave8899]

The code works for me. The only time it inserts a blank row is if the active cell is in a blank row & in that case inserting a blank row is what I would expect.
We don't know what your data is like, how it is filtered of where you active cell might be so obviously we cannot replicate your particular circumstances.

Hi hi thanks for the response, the data is a number of formulas and standard data names & address. As for the filter it’s a standard excel filter the only restriction is the filtered items are selected from a list.

It is a strange one.