I guys, I'm not a programer so I'm having an hard time with this one... I have this macro already working but I just can't use PasteSpecial (as values) and don't understand why.... (I think I has to do with ranges proprieties but I'm a little lost...)

Sub CopyPaste()

   Dim LSearchRow As Integer
   Dim LCopyToRow As Integer
   Dim LSearchValue As String
   
   On Error GoTo Err_Execute
   
   LSearchValue = InputBox("Please enter the date")
   
   'Start search in row 3
   LSearchRow = 3
   
   'Start copying data to row 2 in Sheet2 (row counter variable)
   LCopyToRow = 2
   
   While Len(Range("A" & CStr(LSearchRow)).Value) > 0
   
      'If value in column K = LSearchValue, copy entire row to Sheet2
      If Range("B" & CStr(LSearchRow)).Value Like "*" & LSearchValue & "*" And Range("K" & CStr(LSearchRow)).Value = "END" Then
      
         'Select row in Sheet1 to copy
         Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
         Selection.Copy
         
         'Paste row into Sheet2 in next row
         Sheets("Sheet2").Select
         Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
         ActiveSheet.Paste
         
         'Move counter to next row
         LCopyToRow = LCopyToRow + 1
         
         'Go back to Sheet1 to continue searching
         Sheets("Sheet1").Select
         
      End If
      
      LSearchRow = LSearchRow + 1
      
   Wend
   
   'Position on cell A3
   Application.CutCopyMode = False
   Range("A3").Select

   MsgBox "All matching data has been copied."
   
   Exit Sub

Err_Execute:
   MsgBox "An error occurred."
   
End Sub
This already does the job, It copies the data if K="END" and if B have the date inserted by the user (the date is in dd/mm/yyyy hh:mm format so I used a string). The problem is that it copies the formulas (and it was a lotttt of them...), and I need just the values but I simply can't get the .PasteSpecial to work... could anyone help me with this one? or just point me in the right direction?

Many thanks in advance,