macro to not copy/paste formula over into other worksheet

[bluepenink]

Hello
I have the following macro that takes that data from master worksheet and when user hits the button "next persn" it takes the data and stores it into the results worksheet
macro

Sub RetrieveVoter()
    Application.Range("StartRow").Value = Application.Range("StartRow").Value + 1
End Sub
Sub MoveData()
    Dim lngLastRow As Long
 
    lngLastRow = Sheets("Results").Range("C65536").End(xlUp).Row + 1
 
    For MoveInfo = 1 To 10
        Sheets("Results").Range("C" & lngLastRow).Value = Sheets("Master").Range("D8").Value
        Sheets("Results").Range("D" & lngLastRow).Value = Sheets("Master").Range("D9").Value
        Sheets("Results").Range("E" & lngLastRow).Value = Sheets("Master").Range("D10").Value
        Sheets("Results").Range("F" & lngLastRow).Value = Sheets("Master").Range("E9").Value
        Sheets("Results").Range("G" & lngLastRow).Value = Sheets("Master").Range("F9").Value
        Sheets("Results").Range("H" & lngLastRow).Value = Sheets("Master").Range("G9").Value
        Sheets("Results").Range("I" & lngLastRow).Value = Sheets("Master").Range("H9").Value
        Sheets("Results").Range("J" & lngLastRow).Value = Sheets("Master").Range("I9").Value
        Sheets("Results").Range("K" & lngLastRow).Value = Sheets("Master").Range("J9").Value
    Next
        Application.Range("CustomResponses").ClearContents
    RetrieveVoter
    MsgBox "Successfully transfered to the Results worksheet.", vbInformation, "Moved"
End Sub

ISSUE:
whenever i hit the button "next person" it takes formula i have stored in range E9:J9 and makes it blank.....can the macro paste special values or something and not take the formula in my range?? can someone pls help!!!

thx u

 

[bluepenink]

any suggestions guys? thx u

 

[poolhall]

In Application.Range("CustomResponses").ClearContents, where is the custom range CustomResponses referring to?

 

[bluepenink]

Hello

it is that range where i have my vlookup stored

CustomResponses=Master!$E$9:$K$9

i want the values from there pasted over, which is fine...but i want the formula in those cells to remain as is....do you follow? thx u so much

 

[poolhall]

yes, I do follow. Just remove this line:

Application.Range("CustomResponses").ClearContents

and that's it.

 

[bluepenink]

thx u much apprecited!!