copy rows based on 1 criteria + user input + pastevalues (almost there...)

Many thanks for the quick reply JBeaucaire, unfortunately it doesn't work...it always says that there where no matches.

I tried to delete the inputbox criteria to see if I could understand the error and it started to work but only copying the cells in column A. I changed a little more the code and it started to copy almost all cells, the problem is that it can't paste empty cells.

Dim LR As Long, Found As Boolean

   With Sheets("Sheet1")
        .AutoFilterMode = False
        .Rows(2).AutoFilter 11, "END"
        LR = .Range("B" & .Rows.Count).End(xlUp).Row
        If LR > 2 Then
            Found = True
            .Range("A3:AB" & LR).Copy
            Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
        .AutoFilterMode = False
    End With

    If Found Then
        MsgBox "All matching data has been copied."
    Else
        MsgBox "No matches found, nothing copied"

Also this is without the string verification. I will try to understand all the code that you used to see if I find a solution.

EDIT: I edited the line:
.Range("A3:AB" & LR).Copy -> Since AB is the last column with data.

EDIT2:tried to add an attachment but no joy... (xlsm < 30kb)