Taking cell values from Dashboard, and based on a value load in one of two sheets

Well this what I was able to come up with, maybe this can be looked at... Currently it runs... however the script pastes the values wrong in a major way. How do I get the out to be the text displayed in the Dashboard? Or even better still how do I get the information to pull from the tabs just in the same way as the Dashboard, w/o display #REF, or other jumble...


Above10

Sub SearchForString10()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer

On Error GoTo Err_Execute

'Start search in row 3
LSearchRow = 3

'Start copying data to row 3 in Above10 (row counter variable)
LCopyToRow = 3

While Len(Range("A" & CStr(LSearchRow)).Value) > 0

'If value in column B = ">=11", copy entire row to Above10
If Range("B" & CStr(LSearchRow)).Value >= "11" Then

'Select row in Dashboard to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

'Paste row into Above10 in next row
Sheets("Above10").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste

'Move counter to next row
LCopyToRow = LCopyToRow + 1

'Go back to Dashboard to continue searching
Sheets("Dashboard").Select

End If

LSearchRow = LSearchRow + 1

Wend

'Position on cell B3
Application.CutCopyMode = False
Range("B3").Select

MsgBox "All matching data has been copied."

Exit Sub

Err_Execute:
MsgBox "An error occurred."

End Sub

Below10

Sub SearchForString()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer

On Error GoTo Err_Execute

'Start search in row 3
LSearchRow = 3

'Start copying data to row 3 in Below10 (row counter variable)
LCopyToRow = 3

While Len(Range("A" & CStr(LSearchRow)).Value) > 0

'If value in column B = "Below10", copy entire row to Sheet2
If Range("B" & CStr(LSearchRow)).Value <= "10" Then

'Select row in Dashboard to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

'Paste row into Below10 in next row
Sheets("Below10").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.PasteSpecial

'Move counter to next row
LCopyToRow = LCopyToRow + 1

'Go back to Dashboard to continue searching
Sheets("Dashboard").Select

End If

LSearchRow = LSearchRow + 1

Wend

'Position on cell B3
Application.CutCopyMode = False
Range("B3").Select

MsgBox "All matching data has been copied."

Exit Sub

Err_Execute:
MsgBox "An error occurred."

End Sub

Thank in Advance-

... okay my question then, with the code above, how do I just copy the row of text, and not reference the formula... It appears that the formulas are copying into the new sheets... which is causing the errors in the new sheets... Please any advise is appreciated, once this is achieved I will have solved this...

'Paste row into Above10 in next row
Sheets("Above10").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats

This did the trick... thanks for all the help.

'If value in column B = ">=11", copy entire row to Above10
If Range("B" & CStr(LSearchRow)).Value >= "11" Then

'Select row in Dashboard to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

'If value in column B = "<=10", copy entire row to Below10
If Range("B" & CStr(LSearchRow)).Value <= "10" Then

'Select row in Dashboard to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

Ok... last question... I am not even sure if this is being read anymore but I will post it anyways... this snippet... how can I get it to produce anything less than 10 only, and anything greater than 10 only for the other sheet?

Thanks again...