Copy and paste into separate sheet

[eviehc123]

Hi all,

Can someone help with my code below? I cannot work out why it's not working? The line in bold is highlighted by the debugger.

Sub Macro10()
'
' Macro10 Macro
'


'
    Dim myValue As Variant
    myValue = InputBox("Enter the confirmed start date below", "Start Date Confirmation")
    Range("I18").Value = myValue
    Range("I18").Copy
    Sheets("HR Advice & Admin").Select
    FilterString = Sheets("Menu").Range("I17").Value
    ActiveSheet.Range("$A$1:$AS$286").AutoFilter Field:=1, Criteria1:=FilterString
    Range("N2:N" & Cells(Rows.Count, "N").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Paste
    Sheets("Menu").Select
    Range("I17") = ""
    Range("I18") = ""
    MsgBox "Complete"
    Application.CutCopyMode = False
    .AutoFilterMode = False
End Sub

Thanks!

 

[Sanjeev1976]

Try with

Range("N2:N" & Range("N" & Rows.Count)).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Paste

 

[Fluff]

It needs to be

.PasteSpecial xlPasteValues

not Paste