Does anyone know how to debug the following code

(Trying to copy cell value only, not formatting)

Sub ButtonCode()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim DestRow As Long
    Set ws1 = Sheets("RA REQUEST FORM")
    Set ws2 = Sheets("ACTIVE CREDITS")
    DestRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    ws1.Range("A22").Copy ws2.Range("A"& DestRow) ws2.Range("A"& DestRow).Value = ws1.Range("A22").Value