Command Button Copy/Paste Next Empty Row with Special Paste

[jordanblair07]

Hello,

so far I have below VBA, which is great and does what I need it to do. However, I cannot get it to special paste just the values of the cells to the new worksheet. What am I missing?

Sub Submit_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim DestRow As Long
Set ws1 = Sheets("New Person - Form")
Set ws2 = Sheets("Team Members")
DestRow = ws2.Cells(Rows.Count, "B").End(xlUp).Row + 1
ws1.Range("C2").Copy ws2.Range("B" & DestRow)
ws1.Range("C4").Copy ws2.Range("C" & DestRow)
ws1.Range("C6").Copy ws2.Range("E" & DestRow)
ws1.Range("C8").Copy ws2.Range("F" & DestRow)
ws1.Range("C10").Copy ws2.Range("G" & DestRow)
ws1.Range("C12").Copy ws2.Range("H" & DestRow)
ws1.Range("C14").Copy ws2.Range("I" & DestRow)
ws1.Range("C16").Copy ws2.Range("J" & DestRow)
ws1.Range("C18").Copy ws2.Range("L" & DestRow)
ws1.Range("C20").Copy ws2.Range("M" & DestRow)
ws1.Range("C22").Copy ws2.Range("N" & DestRow)
ws1.Range("C24").Copy ws2.Range("P" & DestRow)
ws1.Range("C26").Copy ws2.Range("R" & DestRow)
ws1.Range("C28").Copy ws2.Range("T" & DestRow)
ws1.Range("C30").Copy ws2.Range("W" & DestRow)
ws1.Range("F2").Copy ws2.Range("D" & DestRow)
ws1.Range("F16").Copy ws2.Range("Y" & DestRow)
ws1.Range("F18").Copy ws2.Range("Z" & DestRow)
ws1.Range("F20").Copy ws2.Range("AA" & DestRow)
ws1.Range("F22").Copy ws2.Range("AB" & DestRow)
ws1.Range("F24").Copy ws2.Range("AC" & DestRow)
ws1.Range("F26").Copy ws2.Range("AD" & DestRow)
ws1.Range("F28").Copy ws2.Range("AE" & DestRow)
ws1.Range("C32").Copy ws2.Range("AI" & DestRow)

Application.CutCopyMode = False
End Sub